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EEN CLUB V00R 65xx 6EBRUIKERS ♦* DE 6502 KENNER « - EEN BLAD VCDR 65xx GEBRUIXERS 



De vereniging heeft leden in Nederland. Belgie. Duitsland, 
Frankrijk, Spanje, Portugal, Aeerika, Zaabia. net doel van 
de vereniging is: net beverderen van de kennisuitwisseling 
tutsen gebruikers van 65xx-coaouters, zoals KIN, JUNIOR. 
CONNOOORE-W, APPLE. CHE-1, PEARCON, flIN-65, SYN PET, BBC 
ATARI, VIC-20. BASIS 106, PROTOHttaputers, ITT-2020, OSI. 
OCC 8000, ACORN ELECTRON, SYSTEM 65, PC-100, PALLAS, NINTH 
FORMOSA, ORIC-1, STARLIGHT, CV-777, ESTATE III. SBC65/66, 
NCS 6502, KEMPAC Systee-4, Elektuur SANSON-65 DOS 
coeputer, LASER, etc., etc. 

De kennisuitwisseling wordt o.a. gerealiseerd door 5 aaal 
per jaar DE 6502 KENNER te publiceren (1984 in 1985 6 tail 
zonder kontributieverhoging) door het houdtn van clubbij- 
eenkoesten, door net inttandfioudtn van ten caistttt-bibh- 
otheek en door het verlenen van papernare-service. Ratio- 
nale bijeenkoatttn Nordtn door leden gtorganitatrd. 
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DE 6502 KENNER is can uitgave van de KIM Bebruikers Club 
Nederland. Het blad Mordt verstrekt aan leden van de club. 
DE £502 KENNER Mordt van kopij voorzien door leden van de 
club, bij de ooaaak van een publikatie hijgestaan door de 
redaktie. De inzendingen van prograaaa's dienen vorzien te 
zi in van koaaentaar in de listinos en zo aogelijk door een 
inleiding voorafgegaan. Publikatie van ten inzending bete- 
kent niet dat de redaktie of het bestuur enioe aansprake- 
lijkheid aanvaardt voor de toeoassing ervan. De inzendingen 
kurmen geschieden in asseebly-source-listincs, in Basic, in 
Basieode, Forth, Focal, Coaal, Pascal, Fortran, Cobol, Logo 
Elan, etc. etc. 

De laden schriiven ook artikelen over de door hen ontMikkel 
de hardHart en/of aanpassingen daaroo. Zij schrijven t evens 
artikelen van algeeene aard of reageren op pubhkaties van 
andere inzenders. 

DE 6502 KENNER IS EEN BLAD VAN EN DOOR DE LEDEN 

Micro-ADE Asseablcr/Disasseabler/Editor is een produkt van 
Micro Ware Ltd., geschreven door Peter Jennings en bestead 
voor alii 6502-coaouttrs. De KIN Sebruikers Club Ned. heeft 
de copyrights verworven nadat ons lid Sebo Woldringh de 4 K 
KIN-l versie uitbreidde tot 8 K K1M-1 versie. Adri Hankel 
oaste deze aan voor de JUNIOR. Willea L. van Pelt stelde 
een nieuwe B K source-listing voor de JUNIOR saaen. 
De iapleaentatie 00 andere systeaen dan de KNH en JUNIOR 
kan eenvoudig gebeuren door net aanpassen van de I/C-adres- 
sen, aelke in de source-listing geaakkelijke te vincen zijn 

FATE Foraat-lister/cond. Asseabler/Taoe-utilities/Editor is 
de door ons lid Rob Banen geschreven source-listing van een 
12 K universeel systeea voor de JUNIOR-coaouter aan de hand 
van het universele disk oaerating systea van de fa. Proton 
Electronics te Naarden, nu geschikt voor werken aet tapes. 
FATE mrdt beschikbaar gesteid aet toesteaaing van Proton. 

In de edities van DE 6502 KENNER Morden regelaatig eedede- 
linoen gedaan over de door de club georganiseerde bijeen- 
koesten.' Ook Morden bestuur! ijke eededelingen gedaan, naast 
inforaaties over hetgeen in de handel te koop is. Leden die 
lets te koop hebben of iets zoeken kurmen dit in de edities 
van DE 6502 KENNER bekend eaken. Ook worden ttel brieven aan 
redaktie geoubliceerd, evenals soecifieke vragen van leden. 
De edities worden saaengesteld op basis van een groot aan- 
tal prioriteiten, aelke'door een redaktievergadering worden 
gehanteerd. Deze vergadering bestaat uit de vaste aedewer- 
Sers zoals in de cslofon veraeld. Het aantal inzendingen is 

?roter dan in een enkele editie van ainiaaal 48 pagini's is 
e verwerken, Hierdoor kan het voorkoaen dat een inzending 
eerst na enige tijd kan worden gepubliceerd. 



DE CLUB HEEFT BEHOEFTE AAN NEER LEDEN. UIJ UILLEN MEER AAN 
KUNNEN BIEDEN DAN NU AL HET SEVAL IS. WERE DAAROM EEN LID! 

HILT U EEN PRIJSLIJST? STUUR EEN 6EFRANKEERDE ENVELOP AAN 
HET REDAKTIE-ADRES. 

Een onafhankelijke jury kent jaarlijks een aantal aanaoe- 
diginospreeies toe aan auteurs van oeoubliceerde artikelen 
in DE'6502 KENNER. 
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Scheie of gedeeltelijke 
overnaae van de inhoud 
van DE 6502 KENNER zander 
toesteMing van het be- 
st uur is verboden. Toepas- 
sing van gepubliceerde 
program's, hardware etc. 
is alleen toeaestaan voor 
persoonlijk gebruik. 

DE 6502 KENNER verschijnt 
6 x per J M ^e" ***** «* 

Copyright (C) 1985 KIN 
februikers Club 

De voorpagina is i 
rel van een KIN, 
■ door: 




In verband aet auteurswet- 
geving en andere aaatreoe- 
len op het gebied van be- 
scheraing van software 
kan de redaktie geen aan- 
sprakelijkheid aanvaarden 
voor inzendincem. 
Inzendingen dienen afksa- 
stig te zijn van de inzen- 
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Het is Nellicht niet zo voor de hand hooend dat de redak- 
teur zich ueroeoen voelt andere eededelinoen te deen dan 
een eededelino in de vora van een verantwoordino aanoaande 
de inhoud van de editie die voor U liot. Natuurliik kunnen 
He over de inhood het nodige vertellen. (tear dat aebeurt 
oas als aan aijn andere behoefte oevolg is oeoeven: het af 
en toe toeueven aan de dram oa de lezers te vertellen dat 
het in de wereld van onze hobby ook weleens ot dinoen oaat 
die verder reiken dan oris oebruikeliik interesseveld veel- 
al bestrijkt. Zo staan we niet altijd stil bij het feit 
dat andere coaouters ons best wel eens zouden kurmen leren 
Helke dinoen we zelf steeds weer over het hoofd zien. Nou, 
de gebraikers ervan. bedoel ik. veel lezers van ens blad 
hebben de neioing alleen of allereerst te zoeken naar die 
artikelen Melke direkt voor de eiaen coaouter van toeoas- 
sing kurmen zijn. Bijoevolg worden soms uiterst aardiae 
software-kneeojes over het hoofd gezien. Maar ook worden 
de •ogelijkheden van betere 'toeoassimen dan niet 
opgeaerkt. Toeoegeven, beginnende hobbyisten aet bijvoor- 
beeld een Coaaodore - 64 kurmen eoeilijk de edities oorde- 
lend doorneeen. Zij hebben in de eerste olaats behoefte 
aan iets dat hen kan bezig heuden: het intynen van b.v. 
Basic-prograaaa's die soeciaal voor nun coaouter is oe- 
sch revert. Althans, dat kan hun eerste reaktie zijn. Ik ben 
echter van eening dat daaraee over het hoofd wordt aezien 
dat ons blad tevens beooot een blad te zijn waaruit 
lering kan mrden getrokken. Juist door het aandacht heb- 
ben voor oroaraaai's voor andere coaouters worden we oe- 
dmnoen allerlei aanoassinaen daaroo te taken, oodat we oo 
de eigen coaouter eraee kunnen werken. Het is een uiterst 
leerzaae aktiviteit uit te oroberen oo de eiaen coaouter 
wat een ander reeds oo zijn (andere) coaouter heeft ont- 
Mikkeld. flls we daarin zijn geslaagd, aoeten we in elk qe- 
val niet veroeten dat de redaktie'zit te sorinoen oa die 
oolossingen die we bedacht hebben. laaers. dat is weer 
voor publikatie vatbaar, en daaraee heloen we weer die le- 
den die er (noa) niet in slaagden oolossingen te vinden. 
Het is heus niei zo gek oa ervan uit te gaan dat we elkaar 
eigenlijk nodia hebben, en dat de club haar erkenning weet 
te vinden juisf door deze instellim te oresenteren. 
Oo de landelijke bijeenkoast te filaelo oo 18 aei jongst- 
leden heeft de heer Nachtaann van net tijdschrift Elektuur 
een SflNS0N65 DOS-coaouter en een Big Board II-coaouter ae- 
deaonstreerd. Net behulo van een overhead- oroiekt or hield 
hi j een lezing over de aogelijkheden van de SAKS0N65, wel- 
ke software daarvoor bescnikbaar zal koaen, waaronder PAS- 
CAL en veel 'oublic doaain softwar e' . In zijn verhaal liet 
hi j doorscheaeren dat de SAMS0N65 de saaenwerking aet 
andere orocessoren zoals Z-BO, 6809 en 68000 niet zal 
schuwen en dat ook harddisk als extern aeheuoen tot de 
•ogelijkheden behoort. Een vergelijking tussen'de oroces- 
soren leert dat de aanier van orooraeaeren van elk van hen 
zo oo elkaar lijkt dat er eigenlijk van oeen verschil in 
orograaeeren kan worden geor often, of het aoet zijn dat het 
oaat oa een ietwat ander aebruik van de registers. Kenners 
van 6502-aachinetaaI aoeten geen aoeite hebben de wereld 
van die andere orocessoren te doororonden. Bijoevolo trek 
ik de konklusie dat een orensverleaaende waarneeina' aeer 
oersoektief te bieden heeft. Met andere woorden: hit ken- 
nis neaen van het oeen anderen doen aet andere coaouters, 
aet naae coaouters uit een andere dan de 65xx-faailie, ook 
een bijdrage kan leveren aan het verhooen van het nivo van 
orograaeeren bij onze leden. Ik bedoel hier allerainst aee 
dat we ook zouden aoeten stiauleren tot de aanschaf of de 
bouw van een anderssoortige coaouter. Integendeel, voor 
•ij staat nog steeds als een oaal boven water dat het ae- 
bruik van een coaouter aet een 65xx-orocessor als 6502 en 
6S10, of 65SC802, of 65SC816, etc. voor de hobbyist nog de 
eeeste oersoektieven te bieden heeft, al dan niet, zoals 
bij de APPLE, oekoabineerd aet Z-BO, oadat de software on- 
dersteuning ongekend oavangrijk is en in hobbykrinoen ais- 
schien we I het aeest onderworoen aan de onweersfaanbare 
drano tst het oolossen van uiterst inoewikkelde orobleaen. 



welke oraktische vertalino zou ie aan een deraeliike ae- 
dachte in de zin van bestuurliike besluitvoraino aoeten ae- 
ven? Dat is niet zo eenvoudio te zeooen. Allereerst neb ie 
te taken aet het feit dat een bestuurder de verantwoorce- 
lijkheid heeft uit te draoen het oeen tegenover de leden als 
vefantwoord kan worden betiteld. Als zodanig heb ik te aa- 
ken aet het onderscheiden van de eigen orive-wensen ten oo- 
zichte van dataene wat de leden akseotabel vinden. Koewe! 
dit laatste niet zo eenvoudio liot. het is niet zo. dat het 
niet aet enioe zekerheid in fe sc hat ten is. Een behoorlitk 
kontakt aet de leden kan daaraan een aardiae bijdraoe leve- 
ren. Zo ben ik zo ijdel oa te veranderstellen dat de leden 
•ijn gedachten kunnen volgen als ik het toejuich eens na te 
denkeri over de toekoast van de club. Nu abet ik eerlijk- 
heidshalve erkennen dat ik ervan uitca dat de toekoast van 
DE 6502 KENNER en de toekoast van de club ontzettend veel 
aet elkaar van doen hebben. Heel eenvoudig gesteld koat het 
eroo neer dat ik redeneer dat, waar de instrooa van kooij 
aan kracht inboet. net aanzwengelen van die instrooa uit 
andere brormen niet alleen aeoorloofd aaar zelfs noodzake- 
kelijk is. Het akseoteren of aaechtig reageren od een zwak- 
ker kleooend hart is het tekenen van het eiaen vonnis. Ot 
deze reden heb ik het altijd toeaejuicht als'het reeds van 
onze club deel uit aakende aantal buitenlandse leden sterk 
zou worden oooevoerd. In het buitenland wonen niet alleen 
hobby-vrienden, we kunnen er aisschien noa iets van leren. 
Ik ben niet van oordeel dat ik al wet end ben, aaar i'« weet 
wel oraao alles. Daarnaast doen we als bestuur al een oaar 
taar ons" best het ledenaantal oo te schroeven. Vijfhonderd 
aaal FI. 45,= oeeft altiid aeer eooe! i.tkhetfen wat voor de 
leden te doen dan vierhonder aaal dat bedraa. Hede door het 
stoeae feit dat we aan chronisch celdaebrek leiden kunnen 
geen andere wervimsakties oo touw worden aezet dan enkele 
leden te vraoen een vriend lid te aaken, wat oa zich icht 
wel ooiitievf gevolgen httft. *ur te wtinig o» groei oa te 
leveren. Dus koat het ons coed uit als Elektuur de Sft*StM5 
in Duitsland het levenslicht schenkt en onze naaa noeat in 
haar Elektor Coaoutim Soncerheft. Dat heeft ons al nieuwe 
leden oooeleverd. En' niet alleen in Duitsland. aaar zelfs 
in Zaabia! Inaiddels is het besef dooraedroncen dat we het 
oo die aanier niet redden o* te groeien. Vandaar dat in het 
bestuur een voornaae!i/)k door Adri Hankel aeschreven nota 
een eerste overoeinzira over de toekoast heeft oogeleverd. 
Rond dat theaa is er besloten dat er ook ondersteumno aoet 
koaen voor het D0S65 voor JUNIOR aet VDU, in de vara van oa 
CAD/CAN nivo ontwikkelde controllerkaart en de distribute 
van soeciaal daarvoor ontwikkelde software aet full-screen 
editing, aet een behoorlijke handleidino. Voor dit werk is 
HAVISOFT verantwoordelijk, dit zijn Adri Hankel en Erwin 
Visschediik, terwitl de kennis van Nico de Vries teoelijk 
wordt inoeschakeld. Maar dat is niet alles. Het bestuur was 
al lang van aening dat de redaktie over eiaen aaoaratuur 
•oest beschikken. Er staat nu ook een APPLE-coaoatible aet 
Z-80 kaart voor draaien aet CP/W en oa 60 koloes en nog wat 
leuks. Dat wil geenszins zeogen dat ik niet aeer aet 6502 
werk, het wil wel zeggen daC'een 6502-coaouter heel goed te 
koabineren is aet een andere processor. Ik ken al een APPLE 
gebruiker in onze club die een koabinatie aet 68000 heel 
boed ziet zitten. 

Enioe ti.id aeleden heb ik andere leden van het bestuur era 
zachtjes in' het oor gefluisterd dat ik ervan oecharaeerd 
ben dat onze club zich ooen zal stellen voor bijvoorbeeld 
andere coaouters dan alleen de eerder genoeade uit de 65xx- 
faailie, waarbii ik echter niet direkt verder denk dan coa- 
outers uit de 6Bxx-faailie. Enioe jaren geleden staoten en- 
kele van onze leden over naar een dergelljke coaouter. Zij 
waren en zijn niet de ainste in het orooraeaeren. Die ken- 
nis hebben we uit onze handen laten aliooen, vind ik. Dat 
aoet ons niet weer oebeuren. We aoeten alles oa alles zet- 
van onze club noa aeer te aaken dan het al is. 
In Alaelo heb ik de aanwezioen oezeod dat we de toekoast od 
twee eanieren kunnen teoeeoet zien: we aaken hea zelf, of 
hij wordt ons oooeleod. Laten we de slac voor blijven! v.P. 
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» * 
< ERVARINGEN NET DE ELEKTUUR SANS0N65 COMPUTER • 

mnnniiiiiiiiiiniiiiuiimiiimniiiiiiiminui H 

Door : WOUT van DINTHER 

Reeds enioe tijd heb ik aijn ouce vertrouMde JUNIOR oage- 
turod naar een"SANS0N65, want een aens Mil ook Mel eens 
nat anders. Ik Mil hier alleen aaar een veroeliikino tref- 
fen tussen de JUNIOR en de SAKS0N65 daar andere vergelij- 
kingen aijns inziens niet heleaaal oassen. 
Eerit even dit: hardwreaatig draait de SRKS0N65 aet de 
tot oo heden oeoubliceerde ontweroen van Elektuur en er 
koat niets extra's bij (uitgezonderd een klein tracer- 
arintje). L'itbreidincen in de toekoast zullen Naarschijn- 
iijk in eerste instantie oo de SAHS0NG5 slaan (zoMel hard- 
Mare- als softMareaatio). 

De hardMare berust od de CPU-kaart, de VDU-KAART, de floo- 
oy-cont roller en een 64K dynaaische RAH-kaart of Meniere 
i&K RAK-kaarten natuurlijk. Het toetsenbord Mordt volledig 
aarallel ingelezen. dus geen gedonder aeer aet het inlezen 
van de I/tFbautirate (rufiout Merd hiervoor gebruikt) *aa in- 
door de R5-232 volledig vrij ter beschikking is gekoaen 
(voor aodea e.d.). 

Kijken Me even naar de aonitor. Er zijn aensen voor Mie 
iedere byte buiten de bootuo-routine teveel is, daar zij 
hun systeea alleen naar aebruiken oa kant en klare softwa- 
re te verMerken, aaar Ieaand Bet de Mare ' JUNIOR' -geest 
noc in zich zal inzien dat hit aet deze aonitor een knaa 
stuk gereedschao er Meer bij heeft. Niet alleen een hex- 
en ascii-dueo aaar ook een heel krachtige tracer en nog 
diverse andere routines verschuilen zich hierin. En er is 
nog alaats voor eigen ontNikkelingen c.c. veranceringen. 
In dit artikel aoet ik aij beoerken daar er een uitgave 
van Elektuur over zal verschijnen, Maarin alles uitgebfeid 
beschreven staat. (Red.: veraoedelijk na de zoaervakantie) 
In Basic zijn oaoenoaen de short hand-coaaando's (ceoubli- 
ceerd in Elektuur, deceaber '84) en een full-screen editor 
en tevens de DIR en PUT coaaando's. 
Alles bij elkaar is het er een stuk gebruikersvriendelij- 
ker oo ceMorden voor Meinig Merk (ovef geld oraat ik niet, 
dat doet Elektuur Mel). De asseabler die er nu bij zit is 
cedeeltelijk afceleid van Kicro-flDE (Nat coaaando's be- 
freft) en Is a.i." ook iets aeaakkelijker geaaakt. De Mord- 
arocessor die oncer 5AHSQN65 Merkt is door de heer Nacht- 
aann ceschreven, aaar deze heeft van Elektuur niet alle 
gelegenheid gekregen oa haar tot in de aunties af te Mer- 
ken. ' Diverse routines zijn al in de Nordorocessor oe- 
alaatst, doch kunnen via een coaaando nog niet aangeroeben 
Morden. Kier is dus Meer Merk aan de Minkel voor leden van 
de club! Dat aoet Neer coay ooleveren voor de redaktie van 
Nogaaals: ten oazichte van de JUNIOR een hele verbetering. 
Er' is een aooi stukje cereec'schaa bijcekoaen edoch een 
oersoonlijke inbreng (verbetering, aanaassing) is ook hier 
weer oaengelaten! Kijken Me naar andere systeaen, dan aoet 
ik er eerlijk bijzeggen dat ik nog aaar Meinig systeaen 
heb oezien Naar zo ceaakkeliik overal in te koaen is. En: 
Me hebben indertijfi de JUNIOR aanceschaft (de aeeste al- 
thans) oa er Mat van te leren. 

Rest aij nag te vertellen dat er aet Duitsland een link is 
aelegd, alMaar SAMS0N65 al een tijdje draait. Van die zij- 
de valt te verMachten, door de toetredim in onze club van 
al enioe in dat land Moonachtioe SAKSONfiS-bezitters, dat 
er ook van hen het een en ander aan ervarinoen kan 
opgestoken. 

Koftoa, dieoenen die een CPU-kaart van Elektuur 
aoeten ai ins inziens niet aeer tMijfelen, aaar ovei 
naar SAKS0N65. Riles cat oa JDNI&R draaice, doet Met nu 

De k re^ktie 0 MKht aet enthousiasae Millie inzendinoen in. 



VRflSEN V ft N LEDEN 

- Ik ben in hot btzit van een APPLE II. Hat 'rutiv' -tignul 
od aijn Drinter-interface is een 'aan/uit'-schakelaar. 
Kan zo'n signaal riienen als een interruot-signaal? Ik 
aoet hierbij ODeerken dat het signaal 'uit' gaat (orin- 
ter not readv) Manneer ik oa reset druk. Dit is de re- 
den dat ik een duaay-karakter (null) naar ce orinter 
stuur bii het PRi-coaaando. Vo leers an zorot het in- 
terruot-signaal dus voor ce eigen uitschakeling. aaar 
dit is slechts een veraoeden. 

- Uat oebeurt er aet een interrruot recuest Manneer 
interrruots ziin 'disabled'? Baat ce interruot verloren 
of Mordt hij aewaart totdat een interruot enable 
instruct le is aeoeven? 

- Voor de APPLE II'PLUS zijn allerlei shift-key en auto- 
reoeat aodificaties verschenen. zo ook in HCC "nuaaer 66. 
Deze aodificaties zim echter alleen voor oe revision 7 
boards en ik heb een" revision 4. Nu is aim vraac, znn 
er ook shift-key en auto reoeat aodificaties voor deze 
revisie? 

Stuur UN antMoord naar ce redaktie. Deze zal voor 
doorzending zorgflragen. 

ttarcel Visser. 

Ik heb van een bedriif een IBM 3742 aekregen. Dit aoaaraat 
bestaat uit twee 8" drives, t*ee toetsenborcen. een aonitor 
Melxe aet behulo van een saiegel in tMeeen is gedeeld. een 
flinke voedinc, en een aicroorocessor aet biibehorend oe- 
heuoen en I/Dl Alle IC's znn eigen fabrikaat. zodat ik 
niet Meet Mat Mat is. 

Nu Mil ik zo'n drive aan a'n Junior hangen. aaar in Meet 
niet hoe. Uat ik Mil Heten is het volcence: 

- Mat doet een floasv disk controller, en kan net ook zan- 
der? 

- Mat is het verscml tussen 5" en 8" ? 

- Hat is het verechil tussen Ohio en IBM-foraaat? 

- is er ook inf oraat ie soeciaal oericht oo een 8" drive ge- 
koaoeld aan een BBC. aocel B ? 

Ik heb no a en ander orobleea: 

ik heb ce' voloende Miizioino in a: in JUNIOR aancebracht: 

- de adresdekoderim is vervamen door een vollecige acres- 

- dekoder in blokken van 4K. Naaraii twee blokken zim uit- 
oeooort tot 8 blokken van IK (K0..K7) 

- ie standaard-aonitor zit nu oo FCOO. .FFFF 

- oo de olaats van de eoroa oo de standaarckaart zit nu 
een 2016 (2K statische RAW) 

- de 6502 is vervangen door de 65C02 van Rock well. 

Als ik nu een oroaraaaa oosla oo oaoina 2, 3, 1C. ID. IE 
of IF (2016), dan'gaat dat uitstekend. Als ik het orocraa- 
aa laat looen. dan'Morcen er echter een heleboel bytes ce- 
Mijziod! Dit ceaeurt telkens aet dezelfde oeneugenbiaatsen 
Een orocraaaa'in PIA-RAM heeft echter nergens last van!!! 
Hoe kan'dit, en hoe herstel ik dit? De voedingssoanning is 
oecontroleerd en heeft een Haarde van 4.84V. 
Als ieaand aij aet deze orobleaen kan heioen. laat het dan 
even Met en. Ik ben er zeker een eind verder aee. 
Stuur het naar de redaktie. Die stuurt het aij door. 

Marcel van Doro. 



iniiiiiiu urn i i i iiniimiHiiniHH 

BESTUURSNEDEDELINS 

Het aestuur zoekt oo korte teraim ieaand die veel enthou- 
siasae voor de hobby Meet te koabineren aet Mat bestuur- 
liike aktiviteiten oa het terrein van 'aarketino' ten be- 
hoeve van landeliike bijeenkoasten en DE 6502 KENNER. Heeft 
U belangstelling, schrijf of bel de redaktie dan heel even. 
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* METHDDE "OOR HET UITWISSELEN VflN PROGRAHW'S TUSSEN * 

♦ SYM EN AIN-65 BASICS ZONDEK AL TE VEEL PSOR-BO t 
mm iiiiii i i i iiiiiiiimiH i iiiiiiiiii i imiii 

DOOR: RONALD VINK 

Zelf heb ik een AIN-65 Basic. De hex- en ASCII-duao zijn 
nieroo oebaseerd, *aar voor de SYN-Basic is dit onoeveer 
hetzelfde, alleen is net start ad res anders. Stel: He 
hebben een klein oroaraaaa en we lezen daarna het geheugen 
uit, dan krijgen He het volgende beeld: 



TEST PROGRAHNA: 



10 PRINT 
20 PRINT 



'ABCDEF* 
■ 123456' 



*XDUNP:2000,202F 



0123456789RBCDEF 
2000: XX XX XX XX XX XX XX 15 20 OA 00 97 22 41 42 43 
2010: 44 45 46 22 00 23 20 14 00 97 22 31 32 33 34 35 
2020: 36 22 00 00 00AAAAAAAAAAAAAAAAAAAAAA 

ASCII-DU»:2000.202F 

0123456789ABCDEF 
2000: "ABC 
2010: D E F * " 1 2 3 4 5 

2020: 6 ' 

0073 07 + 

0074 20 ♦ 

0075 25 + 

0076 20 

VERKLARIN6 



0d de ad res sen 0073 en 0074 staat de oointer die Hijst 
naar het beoin van het Basic-Herkaeheuoen. Bij de AIN-65 
Basic is dit 2007. De adressen 2000-2006 norden gebruikt 
voor de cassette-routines. Het begin- en eindadres van het 
oroaraaaa Hordt hier ooaeslaaen. 

0075 en 0076 oeven het einde van het Basic-orogrataa aan, 
nu 2025 en "niizen naar het ad res naar een reoelnuaaer 
Hordt vemacht, dus na de laatste 00 die aan het einde van 
elk Basic-orooraaaa staat. 

Od 2007 en 2008 mrdt het ad res benaard naar de volgende 

Basic-recel beaint, in dit aeval 2015. 

2009 en'200A oeven het reoelnuaaer van de koaende Basic- 

reoel. OOOfl (hex) oeeft reoel 10. 

200B bevat het BasIc-token"97 (PRINT). 

200C ASClI-Haarde van een " 

200D-2012 de ASCII-naarden van de te orinten strina ABCDEF 
en Hordt Heer afaesloten door de ASCII-naarde van * 
De Basic-reoel oaat niet verder en nordt daaroa afgesloten 
door 00 od adres 2014. 

2015 en 2016 aeven neer het beoin van de volgende Basic- 
reoel od adres" 2023. Nu is ook te zien dat de oointer od 
adres 2007 en 2008 naar het adres nijst naar deze oointer 
staat. 

2017 en 2018 oeven het reoelnuMer. 0014 ■ regel 20. 

2019 PRINT token 

201 A ASCII-Haarde van " 

201B t/a 2020 de ASCII-Haarde van de strina 123456 
De reoel nordt nu Heer afgesloten set 00 oo adres 2022. 
Er volot nu oeen Basic-reoel aeer, dus de reoeloointer 
Hordt oo OOOO'oezet en nel oo adres 2023 en 2024. 
2025-202F zi in'oevuld set AA Hat een restant is van de oe- 
heuoentest die de Basic uitvoert bij een koude start. 



Bii de SYM-Basic is de ooboun van het oroaraaaa hetzelfde. 
Alleen het beoin van het vriie Basic-oeheugen is lager 
oekozen, en nel vanaf adres 2001. Een vooroaarde voor het 
uitnisselen van oroaraaaa' s is nu dat elk oroaraaaa begint 
beaint aet een 'duaav'- reoel, bijvoorbeeld : 1 REN»«««« 
Het doel van deze reoel is oa ruiate te aaken oa het begin 
van het oroaraaaa te kunnen verschuiven. 
Nethode van'inlezen: 

De Basic nordt eerst keud oooestart en daarna Hordt terug- 
oeoaan naar de JUNIOR-aode. Het oroaraaaa nordt nu genoon 
inoelezen, het adres vlak na de laatste 00 aoet nu oo adres 
0075 (Ion byte) en 0076 (hioh byte) norden ingevuld. 
Nu aoet het beoin van het Basic-orooraaaa aanaeDast nordert 
aan de eioen Basic door het beoin fe verolaatsen. In het 
oeval vaneen SYN-orooraaaa aet AIN-65 Basic nordt adres 
2001 tot 2007 verolaatst naar adres 2007 tot 200C naarbij 
het aantal sterren (hex 2A) kleiner nordt. Na het nara oo- 
starten van de Basic is het aangeoaste oroaraaaa gereed oa 
te draaien. 

Bii een AIN-65 orooraaaa aet SYN-Basic aoet adres 2007 tot 
200C verolaatst norden naar adres 2001 tot 2007 naarbij de 
vrii oekoaen olaatsen oooevuld aoeten norden aet sterren. 
De oointer die het einde van het Basic-Herkaeheupen aan- 
oeeft staat bii de SYN-Basic oo adres 007D (Ion byte) en 
007E (high byte). 

miinumiiuiuiuiiiiiii miiiiiiuiiiiiiiinni 

t 12 K FATE for JUNIOR-coaouter * 
, ======== ♦ 

t * 
t Intellioent orooraaaers has the caoabilitv to change * 
t the coaolete source-list ina of this orofessional and * 

* very attractive Foraat Lister/Asseabler/Taoe-utili- t 

* ties to their owi coa outers. • 
t * 
t Owners of the Junior-coaouter need an extended area. * 

* Froa $2000 until $5000 for FATE itself, and a nork- * 

* soace until $9000 or aore is the best. With FATE it • 

* is oossible to asseable froa one or tno controlled * 
t taoe-recorders. You can convert source-files to ob- * 

* lect-files, froa cassette to cassette, froa aeaory » 
i to aeaory. froa cassette to aeaory and vice versa. * 
t The aeroe and sol itf unctions aake it oossible to ♦ 

* aeroe tno editorfiles into one file, or to solit in- * 

* to tno files. * 
i * 
t FATE is orioinallv based on trie obiect-code of the * 

* Proton Electronics (Naarden. The Netherlancs) disk- * 

* ooeratino svstea SENIOR for the JUNIOR-coaouter as * 
» described in edition nuaber 26 of DE 6502 KENNER oa- # 
t oes 6 - 15. Nay. 1983. * 

* This routine Has develooed by Rob Banen. Cooynohts * 

* on asseabler and editor bv Proton Electronics. Both • 

* the oatches and debuoaina on asseabler and editor as • 

* nell as nritino the Dutch version of the aanual and * 
t coaaents in source-Iistira bv Rob Banen. * 
t Publication of this routine Hith oeraission of Pro- « 

* ton Electronics. * 

* Further distribution bv anv nay of coovino is not * 
t alloned. * 
t * 
t The aanual of FATE has been translated in English by * 
t Jaao de Hooo. Nay 1985. Lonoiuaeau. France. * 
« Eurochenue * 
t Manual Dutch version HFL 35,00 * 

* Ranual Enolish version HFL 35,00 * 

* 12K Source-listino Enolish version HFL 110.00 * 

* Cassette for JUNIfiR-coaouter HFL 12,50 t 

* (only nith Manual or source-listing) * 

111 Il l lllllllllllll HH l l lll 1I HHIH W 
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10 REM ' HET THOMAS-K I LMAN INSTRUMENT 7 

20 REM CDMPUTER-BEWERKING DOOR : 

30 REM ++++ H ft V I SOFT ++++ 

40 REM Hftnkel V I ssc hed i J K SOFTware 

50 REM (VI. 3 ; Version 13-01-85) 

60 PRINTCHR*C 12) 

70 PRINT"H ET THOMAS-K I L M A N INSTRUMENT" 
90 PRINT" In leid i Ml " 

100 PRINT"Het Thomas-Ki l man Instrument is een test* die gebruikt wordt" 

110 PRINT" in het bed r i j f s l even biJ psycho l os i sche onderzoek in het" 

120 PRINT"kader van pe r so nee isselekt ie en -werving. " 

130 PRINT"De method© wordt voorname l i J k toesepast biJ hogeve" 

140 PR I NT" -f un kt i es . en anaiyseert de l e i d i nggevende e i genschappen van" 

150 PR I NT "de betrokkene. Niettemin is het ook heel aardig om deze test" 

1G0 PRINT" in 'huiseliJke' kring te doerii b i -j v. met Je partner." 

170 PRINT"Wel dienen de u i t komsten dan sere l at i veerd te worden !!" 

180 INPUT "T i k spatie + return voor vervo l g" ; DUMMY*: PRINT 

190 PRI NT" De methode:" 

200 PRINT"Er worden 30 mu l t i p l e-cho i ce vrasen gesteid, waarop" 

210 PRINT"antwoord seseven meet worden. Na de beantwoo rd i ng verwerkt het" 

220 PRI NT" Prog ramma de verkregen antwoorden tot e i ndresu I taten. 

230 PRINT"De verkregen antwoorden worden verdeeld in score's per sroep." 

240 PRINT"Er zijn v i J i g roe pen. nameiijk:" 

250 PRINT"**: DOORDRUKKEN **" 

260 PRINT"** SAMENWERKEN ** " 

270 PRINT"** COMPROMIS ZOEKEN **" 

280 PRINT"** VERMIJDEM **" 

290 PRINT"** TOEGEVEN ** 

300 INPUT"T i k spatie ■* return voor vervo I g" .DUMMY*: PRINT 
310 PRI NT" Wan nee r er in 1 groep een score van 7 of hoser gescoord" 
320 PRINT"wordt, mag genoemde sroep ais relevant voor Uw karakter" 
330 PRI NT " sez i en wo r den . " 

340 PRI NT " Bovend i en geeft het programma een opsommins van e i genschappen " 
350 PRINT"die golden voor een bepaalde groep. 

380 INPUT " T i k spatie en return voor start " 1 DUMMY* 

370 REM HOOFD PROGRAMMA BEG I NT HIER ! 

380 GOSUB1000: REM KREEER & I NI T IAL ISEER 

390 GOSUB1090: REM INPUT 

400 GOSUB430: REM VERWERK VERKREGEN GEGEVENS & TOELICHTING 
410 END 

420 REM SUBROUTINE VERWERK VERKREGEN GEGEVENS 
430 PRINT CHR*( 12) 

440 PRINT"De verkregen gegevens worden nu verwerkt .":PRINT 

450 FOR 1= 1 TO 30 

460 IF Z(I)-2 THEN 500 

470 REM ' A' -BEHANDEL ING 

480 Q=A(I) : RCQ)=RCQ)+1 : GOTO 510 

490 REM 1 B' -BEHANDEL I NG 

500 Q=B(I) : R(Q)=R(Q)+1 

510 NEXT 

520 PRINT CHR*(12) 

530 PRINTTABC25) ; "U W SCORE'S" 

540 PRINTTAB (25) 5 " " : PRINT 
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550 PRINT"Doordrukken"?SPC<8) ; "Samenwer ken " ;SPCCS) ; 

560 PRINT"Comprom i s" ;SPC(S) ; " Verm i j den " ; SPC C 8) 5 "Toeseven" 

570 PRINTCHR*C 11); 

580 PRINTSPCC 1S> I" (explorers) " ;SPC (7) ; "zoeken" 5SPCC11 > 5 
590 PRINT" (te rug-" 

G00 PR I NTS PC (38) ! "(delen) " ;SPCU0) I "t rekken )" s PRINT 
610 PRINTTAB<4) ; R< 1 ) ;TAB<23) ; R(2) I.TABC39) ? RC3) ; 
620 PRINTTABC57) ?RC4) ;TAB<74) ; R<5> 

630 PRINT"Score' s van 7 en hoger kunnen als relevant beschouwd wo r den. " : PR I NT 
640 PRINT"T i k spat i e * return voo r toe I i c ht i ng op de score's"; 
650 INPUT DUMMY*: PRINT CHR*< 12) ! : 1=0 
6S0 1=1+1 : IF 1=6 THEN RETURN 
670 IF R< I ) 17 THEN 660 

680 ON I GOSUB 690,750,800,860,920: PRINT ! GOTO660 
690 PRINT"** DOQRDRUKKEN **" 

700 PRINT" - zelf P Tablemen van de medewerkers oplossen" 

710 PRINT " - het oPleggen van oop l oss i nsen " 

720 PRINT" - zelf alie verantwoorde t iJkheid" 

730 PRINT" nemen voor de op l oss ins" 

740 PRINT" - instrueren" : RETURN 

750 PR I NT " ** SAMENWERKEN 

7S0 PRINT" - ruifflte seven en ruimte invullen" 

770 PRINT" - oplossinsen bereiken door gel iJkwaardise inbreng" 

780 PRINT" - wederziJdse open he id" 

790 PRINT" - oplossinsen bereiken door samenspel" : RETURN 

300 PRINT"** COMPROMIS ZOEKEN **" 

S10 PRINT" - suggest ies aan de hand doen" 

S20 PRINT" - advies seven op basis van deskund i she i d " 

830 PRINT" - als ' obJektieve bu i tenstaande r ' " 

S40 PRINT" oplossinsen aan re i ken" 

S50 PRINT" - de ander keuze-a l ternat i even laten" : RETURN 

360 PRINT"** VERMIJDEN **" 

870 PRINT" ~ niet diep insaan op de problemen" 

830 PRINT" - Je terushoudend opstellen" 

890 PRINT" - problemen op z' n be I oop laten" 

900 PRINT" - commun i cat i e beperken" 

910 PRINT" - afwachten" : RETURN 

920 PRINT"** T0E6EVEN **" 

930 PRINT" - de medewekers bepaien zelf hoe ze" 

940 PRINT" aan het p r ob l eem we r ken " 

950 PRINT" - veel luisteren, laten uitspreken" 

950 PRINT" - de beseieiding hangt af van de medewerkers" 

970 PRINT" - -f rust rat ies verm i J den" 



980 PRINT" - geen eisen men i ngen geven" : RETURN 

990 REM KREEER «• INI TIALISEER 

1000 DIM ft (30) : REM ' A' -TABEL 

1010 DIM BC30) : REM 'B' -TABEL 

1020 DIM ZC30) : REM ANTWOORDEN-TABEL 

1030 DIM RC5) : REM RESULTA AT- ARRAY 

1040 REM INITIAL I SEER DE ARRAY'S 

1050 FOR I = 1 TO 30 : READ A ( I ) : NEXT 

1060 FOR I = 1 TO 30 : READ BCD : NEXT 

1070 RETURN 

1080 REM INPUT 

1090 GOSUB2310 

1100 PRINT"A, Soms I aat ik ander en de verantwoorde l i J khe i d nemen om" 
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1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1 190 
1200 
1210 
1220 
1230 
1240 
1250 
12G0 
1270 
12S0 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
13S0 
1390 
1400 
1410 
1 420 
1 430 
1440 
1 450 
1460 
1470 
1480 
1490 
1500 
1510 
1 520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1S00 
1610 
1620 
1630 
1540 
1650 
1 



probeer een cowprimis-opiossing te v i nden. " « PRINT 
probe© r ziJn en al mi Jn be I angen te behart i sen. " 



v i nden . 
behoeve 



PRINT 



biJ het" 



PRINT" het probleem op te I ossen. " : PR INT 

PR I NT "B. Li ever dan te onder hande l en over de d i risen waarover we' 
PRINT" het niet eens ziJn, probeer iK de nadruk te lessen op" 
PRINT" de dinsen waarover we het we i eens ziJn." 
GOSUB2340 
GDSUB2910 
PRINT"fl. Ik 
PRINT"B. Ik 
GOSUB2840 
GQSUB2910 

PRINT"A. Ik ben doorsaans vastberaden in het nast v even van" 
PRINT" mi jn doe I e i nden. ": PRINT 

PRINT"B. Soms probeer ik de ander te sussen am onze relatie" 
PRINT" soed te houden. " 
GO3UB2840 
GOSUB2910 

PRINT"A. Ik probeer een comprom i s-op i oss i ns te 
PRINT"B. Soms seef ik miJn eisen wen sen op ten 
PRINT" van de ander. 
GOSUB2840 
GOSUB2910 

PRINT"fl. Ik vraas konsekwent de hu i p van een ander 
PRINT" bedenken van een op loss ins. "•" PRINT 

PRINT"B. Ik probeer datsene te doen wat noodzakeHJk is om" 
PRINT" overbodise spann i nsen te verm i J den. " 
GOSUB2840 
GOSUB2310 

PRINT"A. Ik probeer te verm i«i den het voor miJzelf onprettis" 
PRINT" te maker," : PRINT 

PR I NT "B. Ik probeer mijn standpunt af te dwinsen." 
GOSUB2840 
GOSUB2910 

PRINT "ft. Ik probeer de kwest i e uit 
PRINT" tiJd sehad heb om er over 
PRINT"B. Ik seef somm i se punten op 
GOSUB2S40 
GOSUB2910 

PRINT"ft. Ik ben doorsaans vastberaden 
PRINT" mi Jn doe I e i nden. " : PRINT 
PRINT"B. Ik probeer alle belansen 
PRINT" boven tafel te kr i jsen. " 
GOSUB2840 
GOSUB2910 

PRINT" fl. Ik vind versch i l I en niet altijd de moeite waard om 
PRINT" druk over te maken. ": PRINT 

PRINT"B. Ik span mi J we l enisszins in om miJn z i n te krijgen." 

GOSUB2840 

GOSUB2910 

PRINT"fl. Ik ben vastberaden in het nastreven van mi jn" 
PRINT" doe lei nden. " : PRINT 

PRINT"B. Ik probeer een comprom i s-op l oss i ns te vinden." 

GOSUB2840 

GOSUB2310 

PRINT"fl. Ik probeer alle belansen en sesch i I Punten onmiddeliJk" 
PRINT" boven tafel te kr i Jsen. "s PRINT 

PRINT"B. Soms Probeer iK de ander te sussen om onze relatie" 



te 
na 

i n 



steiien tot ik en i se 
te den ken. " : PRINT 
ru i l voor andere. " 



in het nastreven van" 
en seschi I punten onmiddel i JK" 



j. 
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1570 PRINT" goed te houden. " 
1680 GOSUB2340 
1690 GOSUB2910 

1700 PRINT"fl. Sows vermiJd iK het i linemen van standpunten die tot" 

1710 PRINT" controverse zouden kunnen I ei den. " : PRINT 

1720 PRINT"B. Ik l sat de ander sommise van ziJn st andpunten > als" 

1730 PRINT" hi J mi J somm i se van mi J laat." 

1740 GOSUB2S40 

1750 GQSUB2910 

1760 PRI NT "ft. Ik stel voor elkaar halverwege te ontmoeten. ": PRINT 
1770 PR I NT "B. Ik sa er stevig tesenaan om Mi in visie over te dragen." 
1.7S0 GOSUB2840 
1790 GOSUB2910 

1.800 PRINT"ft. Ik vertel de ander miJn gedachten en vraag hem de" 
1810 PRINT" de z i Jne. ": PRINT 

1820 PRINT"B. Ik probeer hem de logtca en voordelen van mi in" 
1830 PRINT" standpunt. te tonen. " 
1840 GOSUB2340 
1850 GOSUB2910 

I860 PRINT"*}. Sows probe* r iK de ander te sussen om onze relatie" 
1870 PRINT" goed te houden. "J PRINT 

1880 PRI NT " B. Ik probeer datgene te doer, wat noodzake l i J k is om" 
1.890 PRINT" spanningen te vermiJden." 
1900 GOSUB2S40 
1910 GOSUB2910 

1920 PRINT"ft. Ik probeer de gevoe I ens van de ander n i et te kwetsen. ": PRINT 
1930 PRINT'*!. Ik probeer de ander te overtuigen van de voordelen" 
1940 PRINT" van muii standpunt." 
1950 GOSUB2340 
1960 GOSUB2910 

1970 PRINT"A. Ik ben doorgaans vastberaden in het nastreven van" 
1980 PRINT" miJn doe I e i nden . " : PRI NT 

1990 PRINT"B. Ik probeer datgene te doen wat noodzake l i J k is om" 
2000 PRINT" overbodise spanningen te vermiJden. " 
21310 GOBUB2840 
2020 GOSUB2910 

2030 PR I NT "ft. flls het de ander gelukkig maakt. laat ik hem ziJn" 
2040 PRINT" gez i chtspunten. ": PRINT 

2050 PRINT"B. Ik laat hem somm i ge van ziJn standPunten, als hi J mi J" 
2060 PRINT" sommise van de mi Jne laat." 
2070 GOSUB2S40 
2080 GOSUB2910 

2090 PRINT"A. Ik probeer alie beiangen en gesch i I Punten onmiddeliJk" 
2100 PRINT" boven tafel te kr i Jgen. ": PRINT 

2110 PRINT"B. Ik probeer de kwest i e uit te stel l en tot ik enise" 
2120 PRINT" tiJd heb gehad om erover na te den ken. " 
2130 GOSUB2840 
2140 GOSUB2910 

2150 PRINT"ft. Ik probeer onze verschiilen onmiddeliJk grondis door" 
2160 PRINT" te nemen. ": PRINT 

2170 PRINT"B. Ik probeer een billiJke kombinatie van winst en" 
2180 PRINT" verlies voor ons be i den te vinden." 
2190 GOSUB2840 
2200 GOSUB2910 

2210 PRINT"A. In miJn aanpak van onder hande l i ngen probeer ik" 

2220 PRINT" rekening te houden met de wensen vaan de ander. " ' PRINT 
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2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
23G0 
2370 
23S0 



2400 
2410 
2420 

2440 

2450 

2460 

2470 

24S0 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 

2660 

2670 

2680 

2590 

2700 

2710 

2720 

2730 

2740 

2750 

2760 

2770 

2780 



PRINT"B. IK neis er altiJd toe het Probleem d i rekt te bespreKen. " 

GOSUB2840 

GOSUB2910 

PRINT" A. Ik probeer een standPunt te vinden dat het midden houdt" 

PRINT" tussen het ziJne en het mi one. " s PRINT 

PRINT"B. Ik kom op voor miJn wensen." 

GOSUB2840 

GOSUB2910 

PRINT"A. Ik stel mi J erg vaak ten doel at onze wensen te" 
PRINT" bev red i gen" : PRINT 

PRINT"B. Sows laat ik anderen de verantwoorde I i J khe i d nemen om" 

PRINT" het probleem op te lessen. " 

GOSUB2840 

GOSUB2910 

PRINT"A. flis het standPunt van de ander erg beiansriJk voor hem" 
PRINT" liJkt, za l ik prober en aan ziJn wensen tegemoet te" 
PRINT" komen. " : PRINT 

PRINT"B. Ik Probeer hem ertoe te kr i Jsen genoegen te nemen met" 
PRINT" een compromis. " 
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PRINT" A. Ik probeer hem de I os i ca en de voordeien van wi Jn" 
PRINT" standPunten te ton en. " : PRINT 

PRINT"B. In miJn aanpak van onder hande I i ngen probeer ik" 
PRINT" rekening te ho U den met de wensen van de ander." 
GOSUB2840 
GOSUB2910 

PRINT"A. Ik stel voor elkaar halverwege te 
PR INT "B. Ik stel miJ biJna altiJd ten doel 
PRINT" bevredigen." 
GOSUB2S40 
GOSUB2910 

PR INT "ft. Soms vermiJd 
PRINT" controversen 
PRINT"B. 
PRINT" 



on t meet en. " : PRINT 
a l onze wensen te" 



ik het i nnemen van standPunten die tot" 
zouden l e iden. " : PRINT 
Pis het de ander gelukkig maakt, laat ik hem wellicht' 
ziJn ideeen over de zaak. " 



GOSUB2840 
GOSUB2910 

PRINT"A. Ik ben sewoonliJk vastberaden in het nastreven van' 
PRINT" mijn doe I e i nden. " : PRINT 

PR I NT "B. GewoonliJk vraas ik de hu l p van de ander biJ het" 

PRINT" uitdenken van een oplossing. " 

GOSUB2840 

GOSUB2910 



Ik stel voor elkaar halverwege te ontmoeten. PRINT 
Ik vind verschillen n i et altiJd de moeite waard om Je' 
druk over te maken. " 



PR I NT "ft. 
PR I NT "B. 
PRINT" 
GOSUB2S40 
GOSUB2910 

PRINT" A. Ik probeer de sevoe l ens van de ander n i et te kwetsen. " : PRINT 
PRINT"B. Ik maak de ander altiJd 
PRINT" zodat we het uit kunnen 
GDSUB2S40 
RETURN 

REM DATA VOOR ' A' -TABEL 

4, 3, 1, 3, 2, 4, 4, 1,4, 1,2' 4, 3, 2, 5 



dee l genoot 
wer ken. " 



van het probleem, 



PET I — , ■ — , | J , — ■ KENMER 



2790 DATA 5, 1 , 5, 2. 2, 5, 3. 2, 5, 1» 3. 4, 1, 3, 5 

2800 REM DATA VOOR ' B' -TABEL 

2810 DATA 5,2,5,5,4,1,3,2,1,375,3,1,1,4 

2820 DATA 1,4,3,4,3,2,1,4,3,5,2,5,2,4,2 

2830 REM SUBROUTINE DIE OM AMTWOORD VRAAGT EN DIT OPSLAAT IN TABEL. 

2840 PRINT J PRINT S INPUT"Uw antwoord (A of B) : " ! Y* 

2850 y*=left*<:y$, 1) 

2860 Y=ASC(Y$) : Y=Y-64 

2870 IF YOl AND Y<>2 THEN 2S40 

2SS0 ZCNU)=Y : RETURN 

2890 REM SUBROUTINE OM HET BEELDSCHERM SCHOON TE MAKEN 

2900 REM EN VRAAGNUMMER TE PRINTEN. 

2910 PRINT CHR*(12) ! 

2920 PRINT"Vraa9 ! " 5 

2930 NU=NU+1 

2940 PRINT NU S PRINT i RETURN 
OK 



Voor velen is het een wekei iJkse bezisheid ow de lotto formul ieren in te 
vu I I en. Indien u n i et steevast deze I fde seta I I en invuit is misschien dit 
prosramma een leuk hu I n» i dde i om de compute 
" i nvu I I en". 

10 REM SCHOONMAKEN BEELDSCHERM 
20 H=0 

30 PRINT"VOOR HOEVEEL WEKEN WILT U DE" 
40 INPUT"LOTTO GETALLEN OP HET SCHERM" ; G 
50 A=INT<:41*RNDC1>+1) 
E0 B=INTC41*=RND<1)+1) 
70 C=INTC41*RNDU ) + l ) 
S0 D=INT(41%RND<1>+1> 
90 E=INTC41*RND(1)+1 ) 
100 F=INT<41*RNDtl)+l) 
110 IFB=ATHENE0 
120 IFC=AORC=BTHEN70 
130 IFD=AORD=BDRD=CTHENB0 
140 IFE=AORE=BORE=CORE=DTHEN90 
150 IFF=AORF=BORF=nQRF -DGRF =ETHEN1 0E 
1E0 H=H+1 

170 PRINTft"-"B"-"C"-"D"-"E"-"F 
1B0 I FH=GTHENEND 
190 GOTO50 





?etai i en 


voo r 


u te later 


37 


- 22 - E - 


5 - 


7-41 


40 


-13-21 


- 30 


- 5 - 28 


30 


- IE - 29 


- IE 


-11-10 


27 


- 9 - 32 - 


13 ■ 


- 2B - 33 


5 - 


10 - 30 - 


4 - 


35 - 13 


E - 


9 - 41 - 


12 - 


25-15 


14 


-2-5— 


39 - 


10 - 25 


35 


— IB - 14 


— 22 


- IE - 23 


37 


- 39 - 2 - 


10 ■ 


- 20 - 17 


25 


-40-32 


- 38 


- 20 - 35 


37 


- 7 - IE - 


22 - 24 - 34 


5 - 


17 - 33 - 


26 


- 37 - 3 


29 


- 38 - 7 - 


37 ■ 


-8-41 


19 


- 13 - 2E 


- 11 


- 5 - 25 


27 


- 41 - IS 


- 34 


- 38 - 25 


23 


- 20 - 1 - 


28 ■ 


- 21 - 2E 


13 


- 25 - 2E 


- 24 


- 40 - 20 


24 


-38-27 


-9-18-3 



. DLEEBLEGE I PS NI SELLA TFJIRHCS AMMARGORP ETROK REEZ TID 

Nee dit is seen drukfout of rariteiten van m i J n tekstverwerker. Als u het 
voisende mi n i prosrammaat je intoetst en ' RUN' t kan u tekst invoeren. Daarna 
de 'CR' of ' RETURN' toets indrukken en het seheel verschiJnt in sPiesel- 
beeld op het beeldscherm. 

1 INPUTA*:F0RA=LEN(A*)T01STEP-lsPRINTMID*CA*, A, 1 ) ; s NEXTA 
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STONE 



PflBE 01 



0010: 
0020: 
0030: 
0040 : 
0050: 
0060: 
0070: 
0080: 
0090 : 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
0230 : 
0240: 
0250: 
0260: 
0270 : 
0280: 
0290: 
0300 : 
0310: 
0320 : 
0330: 
0340: 
0350: 
0360 : 
0370: 
0380: 
0390: 
0400 : 
0410: 
0420: 
0430: 
0440: 
0450: 

888: 

0480: 
0490: 
0500 : 
0510: 
0520 : 
0530! 
05401 
0550: 
0560 : 
0570: 
0580 : 
0590: 
0600: 
0610: 
0620 : 
0630: 
0640: 



09 00 
12 00 
70 00 



D5 1A 
F7 lfl 



00 18 
02 18 



FE 9F 
FF 9F 



0200 
0200 A9 
0202 85 
0204 fl9 
0206 20 
0209 20 
020C AD 
020F 8D 
0212 20 
0215 E6 
0217 A9 



00 
09 
OC 

BO 03 
A9 03 
FE 9F 
FF 9F 
FF 02 
09 
1C 



**************#************************* 
*** DUBBELE DOBBELSTEEN *** 
**********************#*#**#*** 
DOOR: M. LAME I J 

PRINS CLAUSLAAN 81 
7242 GN LOCHEM 
TEL. : 05730 - 4427. 
♦♦♦a************************************ 

>>>> BEBRUI KSAANW IJZ I NG <<<< 
HET PROGRAMMA SCHRIJFT OP HET SCHERM 
DE AFBEELDING VAN TWEE DOBBELSTENEN 
NAAST ELKAAR. HET TOTAAL AANTAL OGEN 
WORDT ONDER DE RECHTER-DOBBELSTEEN 
AFGEDRUKT. WANNEER ER EEN DUBBEL UIT D£ 
BUS KOMT WORDT DIT AANGEGEVEN. OP POORT 
PBO VAN DE VIA KAN EEN LUIDSPREKER- 
SCHAKELING WORDEN AANGESLOTEN: EEN 
PIEPTOONTJE GEEFT AAN DAT DE COMPUTER 
KLAAR IS VOOR DE VOLGENDE GOO I. MET DE 
TOETSEN 'J' EN ' N' KAN DAN GEKOZEN 
WORDEN VOOR DOORGAAN OF STOPPEN. 
DE DATA VOOR HET BEELD WORDT DOOR DE 
COMPUTER OPGEBOUWD OP PAGINA 9F. B'J 
MIJN SYSTEEM DE LAATSTE RAM-PAGINA. EX 
KAN NATUURLI JK EEN ANDERE PAGINA 
GEKOZEN WORDEN. 

PAGINA NUL LOKATIES: 
SWITCH * $0009 EERSTE/TWEEDE GOOI 

GETAL * $0012 GETAL GOOI 

COUNT * $0070 FAKTOR SOUND 



PIA LOKATIES: 
RDFLAG * $1AD5 
TIMER * $1AF7 

VIA LOKATIES: 
ORB * $1800 
DDRB * $1802 



I/O POORT 

RICHTINGS REGISTER 



MONITOR SUBROUTINES: 



5F 


10 


LABJUN 


* 


$105F 


E8 


11 


CRLF 


* 


$11E8 


A4 


12 


NIBASC 


* 


$12A4 


AE 


12 


RECCHA 


* 


$12AE 


34 


13 


PRCHA 


* 


$1334 



PROGRAMMA LOKATIES: 
SCOREA * $9FF 
SCOREB * $9FF 



RE 



PROGRAMMA-BEGIN 
STONE ORG $0200 
START LDAIM $00 

STA SWITCH RESET SWITCH 
LDAIM $0C 

CLRSCR WIS SCHERM 
RANBEE GETAL + AFBEELDEN 
LDA SCOREA 

STA SCOREB VERPLAATS EERSTE GOOI 
JSR DISPLA DRUK AF 
INC SWITCH VERZET SWITCH 
LDAIM $1C 
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0650: 


0219 


20 


B0 


03 




JSR 


CLRSCR 


CURSOR HOME 


0660 : 


021C 


20 


09 


03 




JSR 


RANBEE 


6ETAL + BEELD 


0670 : 


021F 


20 


2B 


03 




JSR 


T0TAAL 


BEPAAL TOTAAL 


0680 : 


0222 


20 


FF 


02 




JSR 


DISPLA 


DRUK AF 


0690 : 


0225 


20 


63 


03 




JSR 


DUBBEL 


DUBBEL'' 


0700: 


0228 


20 


BE 


03 




JSR 


SOUND 


LAAT TOON HOREN 


0710: 


022B 


20 


0B 


04 




JSR 


QUEST 


NOG EENS? 


0720: 


022E 


20 


AE 


12 


ST0RTB 


JSR 


RECCHA 


WACHT OP TOETS 


0730 : 


0231 


C9 


40 






CMPIM 


' J 


IS HET J? 


0740: 


0233 


F0 


CB 






BEQ 


START 


ZOJA OPNIEUW 


0750 : 


0235 


C9 


4E 






CMPIM 


' N 


IS HET N? 


0760 : 


0237 


F0 


02 






BEQ 


STORTC 


ZOJA STOP 


0770: 


0239 


DO 


F3 






BNE 


STARTB 


ZONEE NAAR TOETS? 


0780 : 


023B 


4C 


5F 


10 


ST0RTC 


JMP 


LABJUN 


STOP ERMEE 


0790 : 


















0800 : 


023E 


00 


CO 




PREDIS LDYIM 


$C0 




Ofl 1 0 : 

V O X V ■ 


0240 


09 


20 






1 DOIM 

i — u ri x i I 


$20 


SCHRIJF SPATIES 


0820 : 


0242 


8D 


00 


9F 




STO 

O 1 rl 


$9F00 


OP DE 


0830 : 


0245 


99 


00 


9F 


PREA 


STAAY 


$9F00 


BEELDPAGINA 


0840: 


0248 


88 








DEY 






0850 : 


0249 


DO 


FA 








PREA 




0860 : 


024B 


09 


03 






1 HQTM 


$03 




0070 : 


024D 


8D 


9F 


9F 




O 1 rl 


$9F9F 


PLAATS EOT-TEKEN 




0250 


00 


00 






1 DVTM 

1 U I 1 it 


$00 




OA 90 ; 


0252 


09 


5F 








$5F 


BOUW BEELD OP 


0900 : 


0254 


99 


10 


9F 




9T0QV 

Zj 1 MM 1 


$9F10 




0910: 


0257 


C8 








TWV 






0920 : 


0258 


CO 


10 






TPYIM 

L-> ' I XII 


$10 






0250 


DO 


F8 






XvINd 


PREB 




0940 ■ 


025C 


00 


00 






1 nVTM 


$00 




0950 


025E 


09 


5F 






1 HQTM 
L_ JJH 1 rl 


$5F 




0960 


0260 


99 


71 


9F 


DBPP 


D 1 MM T 


$9F71 




0970 


0263 


C8 








T WV 
X P4 T 






09 AO 


0264 


CO 


0E 






PDVTM 
Lr T x PI 


$0E 




0990 


0266 


DO 


F8 






BNE 


PREC 




1000 


0268 


09 


49 






LDAIM 


' I 




1 (") 1 o 

1 IV.' 


0760 


AD 

OX/ 


20 


9F 




STA 


$9F20 




1 O?0 


076D 

Vi-ulV 


8D 


30 


9F 




STA 


$9F30 




1 n^o 


0270 


8D 


40 


9F 




STA 


$9F40 




1 OAO 


; 0273 


8D 


50 


9F 




STA 


$9F50 




1 nso 


i 0776 


8D 


60 


9F 




STA 


$9F60 






: 0279 


8D 

LI U 


70 


9F 




STA 


$9F70 








AD 

ox/ 


2F 


9F 




STA 


$9F2F 




1 (")A0 


: Q27F 


8D 


3F 


9F 




STA 


$9F3F 






: 0?A7 


AD 

OX/ 


4F 


9F 




STA 


$9F4F 




1 1 oo 




AD 

OX/ 


5F 


9F 




STA 


$9F5F 




1 1 1 O 


• ooaa 


An 

ou 


Cm 


9F 

-71 




STA 


$9F6F 




1 1 ?o 


: 07AR 


AD 

ox/ 


7F 


9F 




STA 


$9F7F 




1 1 £0 


: 028E 


05 


12 




H0WMUC 


LDA 


GETOL 


HAAL GOO I OP 


1150 


: 0290 


8D 


FE 


9F 




STA 


SCOREA 


EN BERG OP 


1160 


: 0293 


C9 


01 






CMPIM 


$01 


IS HET EEN 1? 


1170 


: 0295 


F0 


17 






BEQ 


PLACEA 


ZOJA PLOOTSEN 


1180 


: 0297 


C9 


02 






CMPIM 


$02 


IS HET EEN 2? 


1190 


: 0299 


F0 


19 






BEQ 


PLACEB 


ZOJA PLOOTSEN 


1200 


: 029B 


C9 


03 






CMPIM 


$03 


IS HET EEN 3? 


1210 


: 029D 


F0 


IE 






BEQ 


PLACEC 


ZOJA PLOOTSEN 


1220 


: 029F 


C9 


04 






CMPIM 


$04 


IS HET EEN 4? 


1230 


: 0201 


F0 


26 






BEQ 


PLACED 


ZOJA PLOOTSEN 


1240 


: 0203 


C9 


05 






CMPIM 


$05 


IS HET EEN 5? 


1250 


: 0205 


F0 


31 






BEQ 


PLACEE 


ZOJA PLAATSEN 


1260 


: 0207 


C9 


06 






CMPIM 


$06 


IS HET EEN 6? 


1270 


: 0209 


F0 


3F 






BEQ 


PLACEF 


ZOJA PLOOTSEN 


1280: 020B 4C 


A9 03 




JMP 


RANBEE 


ZONEE OPNIEUW 



2 
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1290! 

1300: 

1310: 

1320: 

1330: 

1340: 

1350: 

1360: 

1370: 

1380: 

1390: 

1400: 

1410: 

1420: 

1430: 

1440: 

1450: 

1460: 

1470: 

1480: 

1490: 

1500: 

1510: 

1520: 

1530: 

1540: 

1550: 

1560: 

1570: 

1580: 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810: 

1820: 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 



02flE 
02B0 
02B3 
02B4 
02B6 
02B9 
02BC 
02BD 
02BF 
02C2 
02C5 
02C8 
02C9 
02CB 
02CE 
02D1 
02D4 
02D7 
02D8 
02DA 
02DD 

02E3 
02E6 
02E9 
02EA 
02EC 
02EF 
02F2 
02F5 
02F8 
02FB 
02FE 

02FF 
0301 
0302 
0304 
0306 
0309 
030B 
030D 
0310 
0311 
0314 
0317 
0319 
031B 
031D 
03 IF 
0321 
0324 
0325 
0327 
032ft 



4F 

62 9F 



fl9 4F 
8D 48 9F 
60 
ft9 
8D 

8D 2D 9F 
60 

09 4F 
8D 48 9F 
8D 62 9F 
8D 2D 9F 
60 

ft9 4F 
8D 62 9F 
8D 22 9F 
8D 2D 9F 
8D 6D 9F 
60 

fl9 4F 



8D 
8D 



48 9F 
62 9F 



22 9F 
8D 2D 9F 
8D 6D 9F 
60 

09 4F 
8D 28 9F 
8D 2D 9F 
62 9F 
22 9F 
8D 67 9F 
8D 6D 9F 
60 



8D 
8D 



PLACEO 
PLACES 

PLACEC 
PLACED 

PLACEE 



PLACEF 



AO 00 DISPLA 
98 DISPLB 
29 OF 
FO OE 

B9 00 9F DISPLC 

C9 03 

FO ID 

20 34 13 

C8 

4C 01 03 

20 E8 11 DISPLD 
A5 09 
29 01 
FO OA 
A2 23 

A9 09 DISPLE 

20 34 13 

CA 

DO F8 



4C 06 03 
60 



DISPLF 
DISPLB 



LDAIM 

STA 

RTS 

LDAIM 

STA 

STA 

RTS 

LDAIM 

STA 

STA 

STA 

RTS 

LDAIM 

STA 

STA 

STA 

STA 

RTS 

LDAIM 

STA 

STA 

STA 

STA 

STA 

RTS 

LDAIM 

STA 

STA 

STA 

STA 

STA 

STA 

RTS 

LDYIM 

TYA 

ANDIM 

BEQ 

LDAftY 

CMPIM 

BEQ 

JSR 

I NY 

JMP 

JSR 

LDfl 

fiNDIM 

BEQ 

LDXIM 

LDAIM 

JSR 

DEX 

BNE 

JMP 

RTS 



*9F48 PLAATS EEN 0 
'0 

*9F62 

$9F2D PLAATS 2 O'S 
'0 

$9F48 
$9F62 

$9F2D PLAATS 3 0' S 



'0 

$9F62 
*9F22 
*9F2D 

$9F6D PLAATS 4 0' S 
' 0 

*9F48 
*9F62 
$9F22 
$9F2D 

$9F6D PLAATS 5 0' S 
'0 

$9F28 
$9F2D 
$9F62 
*9F22 
$9F67 

$9F6D PLAATS 6 0' S 



$00 
*0F 



032B A9 54 
032D 8D 96 9F 
0330 8D 98 9F 
0333 A9 4F 
0335 8D 97 9F 
0338 A9 41 
033A 8D 99 9F 



TOTAAL LDAIM 
STA 
STA 
LDAIM 
STA 



LDAIM 'A 
STA $9F99 



DISPLD BEPAAL EERSTE/TWEEDE 
$9F00 HAAL BEELD OP 
$03 TOT HET EOT-TEKEM 
DISPLG DAN STOPPEN 
PRCHA ANDER AFDRUKKEN 

DISPLB EN DOORGAAN 
CRLF 

SWITCH BEPAAL WELKE GOO I 
♦01 

DISPLF EERSTE GOOI 
*23 TWEEDE GOOI 
$09 

PRCHA DRUK HOR. TAB. AF 
35 KEER 

DISPLE 

DISPLC DRUK TWEEDE GOOI 



*T 

$9F96 
*9F98 
'0 

$9F97 



PLAATS TOTAAL 



13 



DE 
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1930 


: 033D 


8D 


9A 


9F 




STA 


$9F9A 
' L 




1940 


■ A7/.A 

: 0340 


A9 


4C 






LDAIM 




1950 


: 0^42 


8D 


9B 9F 




STA 


$9F9B 




1960 


: 0345 


Fa 








SED 




BEREKEN TOTAAL 


1970 


: 0346 


18 








CLC 




1980 


: 0347 


AD 


FF 


9F 




LDA 


SCORES 




1990 


: 034A 


6D 


FE 9F 




ADC 


SC0REA 




2000 


: 034D 


D8 








CLD 






2010 


: 034E 


48 








PHA 






2020 


• A7/.r 


4A 








LSRA 






2030 


• 0350 


4A 








LSRA 






2040 


! 0351 


4A 








LSRA 






2050 


1 0^52 


4A 








LSRA 






2060 


■ 0^5,} 


20 


A4 


12 




JSR 


NIBASC 


ZET TOTAAL 


2O70 


. 0356 


8D 


9D 


pr" 

9F 




STA 


$9F9D 


OM IN ASCII EN 


2080 


. 0359 


68 








PLA 




ZET HET IN BEELD 


2090 


: 035A 


29 


OF 






ANDIM 


$0F 


2100 


0^>5C 


20 


A4 


12 




JSR 


kit n An r* 

NIBASC 




21 10 


0a5F 


8D 


nr 

9E 


nr 

9F 




STA 


$9F9E 




2120 


0362 


60 








RTS 




GA DOOR 


jildO 


















^140 


0^63 


AD 


FF 


9F 


DUBBEL 


LDA 


^r*n nrn 

SCORES 


HAAL G00I OP 


2150 


0366 


CD 


FE 


9F 




CMP 


SC0REA 


GEL UK? 


2160 


0^)69 


DO 


3D 






BNE 


DUBBF 


ZONEE GA DOOR 


2170 


036B 


20 


E8 


1 1 




JSR 


CRLF 


NIEUWE REGEL 


2180 


OooE 


R2 


16 




DUBBA 


LDXIM 


$16 






0-j7U 


A9 


09 




DUBBB 


LDAIM 


$09 


DRUK HOR. TAB. Af- 


2.2UU 


03/2 


20 


34 


13 




JSR 


PRCHfl 


2210 


0375 


CA 








r\ r" v 

DEX 




22 KEER 


2220 


0^>76 


DO 


F8 






BNE 


DUBBB 




2230 


0378 


AO 


00 






LDYIM 


$00 




2240 


037A 


B9 


IF 


04 


T"\I 1 T"i T"i r -1 

DUBBC 


LDAAY 


MESSAG 




2250 


037D 


C9 


03 






CMPIM 


$03 




2260 


037F 


F0 


07 






BEQ 


DUBBD 




2270 


0381 


20 


34 


13 




JSR 


PRCHA 


DRUK AF ' DUBBEL' 


2280 
2290 


0384 


C8 








INY 






0385 


4C 


7A 


03 




JMP 


DUBBC 




2300 


0388 


20 


B3 


03 


DUBBD 


JSR 


DELAY 


WACHT EVEN 


2310. 


038B 


E6 


09 






INC 


SWITCH 


BEPAALT 00K HET 


2320 


038D 


A5 


09 






LDA 


SWITCH 


AANTAL MALEN 


2330 


038F 
0391 


C9 


07 






CMPIM 


$07 


DAT DUBBEL WORDT 


2340 : 


F0 


15 






BEQ 


DUBBF 


AFGEDRUKT 


2350 ' 
2360 : 


0393 


A2 


OA 






LDXIM 


$0A 




0395 


A9 


08 




DUBBE 


LDAIM 


$08 




2370 : 


0397 


20 


34 


13 




JSR 


PRCHA 


WIS DUBBEL 


2380 . 


039A 


CA 








DEX 






2390: 


039B 


DO 


F8 






BNE 


DUBBE 




2400! 


039D 


A9 


0D 






LDAIM 


$0D 




2410: 


039F 


20 


34 


13 




JSR 


PRCHA 


BEGIN VOORAAN REl 


2420 : 


03A2 


20 


B3 


03 




JSR 


DELAY 


2430 : 


0oA5 


4C 


6E 


03 




JMP 


DUBBA 


OPNIEUW 


2440 : 


0308 


60 






DUBBF 


RTS 




GA DOOR 


2450: 


















2460 : 


03A9 


20 


DC 


03 


RANBEE 


JSR 




BEPAAL GETAL 


2470: 


03AC 


20 


3E 


02 




JSR 


PREDIS 


MAAK BEELD KLAAR 


2480: 


03AF 


60 








RTS 




GA DOOR 


2490: 


















2500: 


03B0 


20 


34 


13 


CLRSCR 


JSR 


PRCHA 


WIS SCHERM 


2510: 


03B3 


A9 


80 




DELAY 


LDAIM 


$80 


WACHT EVEN 


2520: 


03B5 


8D 


F7 


1A 




STA 


TIMER 




2530: 
2540 : 


03B8 


2C 


D5 


1A 


DELA 


BIT 


RDFLAG 


TIJD OM? 


03BB 


10 


FB 






BPL 


DELA 


ZONEE WACHT NOG 


2550 : 


03BD 


60 








RTS 




ZOJA WEER VERDER 


2560 : 

















1* 



jjjjj KEMMER 



STONE PAGE 05 



2570: 


03BE 


A9 


01 




SOUND 


LDAIM 


$01 




2580: 


03C0 


8D 


00 


18 




STA 


ORB 


STEL POORTEN IN 


2590 : 


03C3 


80 


02 


18 




STA 


DDRB 




2600: 


03C6 


A9 


7F 






LDAIM 


$7F 




2610: 


03C8 


85 


70 






STA 


COUNT 


STEL VERTRAGING IN 


2620: 


03CA 


EE 


00 


18 


SOUNA 


INC 


ORB 


ZET STEEDS 


2630 : 


03CD 


A6 


70 






LDX 


COUNT 


DE UITGANG AAN 


2640: 


03CF 


E8 






SOUNB 


INX 




EN WEER UIT 


2650 : 


03D0 


DO 


FD 






BNE 


SOUNB 




2660 : 


03D2 


C6 


70 






DEC 


COUNT 




2670: 


03D4 


C6 


70 






DEC 


COUNT 




2680 : 


03D6 


30 


03 






BMI 


SOUNC 




2690: 


03D8 


4C 


CA 


03 




JMP 


SOUNA 


OPNIEUW 


2700: 


03DB 


60 






SOUNC 


RTS 




GA DOOR 


2710: 


















2720: 


03DC 


38 






RAND 


SEC 






2730: 


03DD 


A5 


00 






LDAZ 


$00 


HAAL INHOUD 0000 


2740: 


03DF 


65 


16 






ADC 


GETAL 


+04 TEL 0016 ERBIJ 


2750 : 


03E1 


65 


17 






ADC 


GETAL 


+05 TEL 0017 ERBIJ 


2760: 


03E3 


85 


12 






STA 


GETAL 


ZET OP 0012 


2770' 


03E5 


A2 


04 






LDXIM 


$04 




2780" 


03E7 


B5 


12 




RANDA 


LDAZX 


GETAL 


VERSCHUIF GETALLEN 


2790 


03E9 


95 


13 






STAZX 


GETAL 


+01 


2800 


03EB 


Cfl 








DEX 






2810 


03EC 


10 


F9 






BPL 


RANDA 




2820 


03EE 


A2 


10 






LDXIM 


$10 




2830 


03F0 


AO 


CO 






LDYIM 


*C0 




2840 


03F2 


84 


11 






STY 


GETAL 


-01 


2850 


03F4 


AO 


06 






LDYIM 


$06 




2860 


03F6 


C5 


11 




RANDB 


CMP 


GETAL 


-01 


2870 


03F8 


90 


02 






BCC 


RANDC 




2880 


03FA 


E5 


11 






SBC 


GETAL 


-01 


2890 


03FC 


46 


11 




RANDC 


LSR 


GETAL 


-01 


2900 


03FE 


88 








DEY 






2910 


03FF 


DO 


F5 






BNE 


RANDB 




2920 
2930 


0401 


18 








CLC 






. 0402 


29 


09 






ANDIM 


$09 




2940 


: 0404 


95 


00 






STAZX 


GETAL 


-12 


2950 


: 0406 


C6 


05 






DEC 


GETAL 


-2 


2960 


: 0408 


10 


D2 






BPL 


RAND 




2970 


: 040A 


60 








RTS 






2980 


















2990 


! 040B 


20 


E8 


11 


QUEST 


JSR 


CRLF 


NIEUWE REGEL 


3000 


: 040E 


AO 


09 






LDYIM 


$09 




3010 


: 0410 


B9 


IF 


04 


QUESTA 


LDAAY 


MESSAG 


HAAL TEKST 


3020 


: 0413 


C9 


03 






CMPIM 


$03 


TOT EOT-TEKEN 


3030 


: 0415 


FO 


07 






BEQ 


QUESTB 


AFDRUKKEN 


3040 


: 0417 


20 


34 


13 




JSR 


PRCHA 




3050 


: 041A 


C8 








I NY 






3060 


: 041B 


4C 


10 


04 




JMP 


QUESTA VOLGENDE LETTER 


3070 


: 041E 


60 






QUESTB 


RTS 






3080 
3090 


















: 041F 


44 






MESSAG 


— 


'D 


DUBBEL! ! 


3100 


: 0420 


55 








= 


'U 
•B 




3110 


: 0421 


42 








= 




3120 


: 0422 


42 










'B 
*E 




3130 


: 0423 


45 












3140 


: 0424 


4C 








= 


'L 




3150 


: 0425 


21 










' i 




3160 


: 0426 


21 








= 


' i 




3170 


: 0427 


03 








= 


$03 




3180 


: 0428 


4E 










*N 


NOG EENS? (J/N) 


3190 


: 0429 


4F 










'0 




3200: 042A 


47 








= 


'G 
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STONE 



PAGE 06 



3210 


042B 


20 


= 


> 


3220 


042C 


45 


= 


mm 


3230 


042D 


45 


m 


3240 


042E 


4E 




' N 


3250 


042F 


53 


= 


'S 


3260 


0430 


3F 


= 


'? 


3270 


0431 


20 




9 


3280 


0432 


28 


= 


' ( 


3290 


0433 


4fl 




' J 


3300 


0434 


2F 


= 


' / 


3310 


0435 


4E 




' N 


3320 


0436 


29 




' ) 


3330 


: 0437 


03 


= 


$03 



HANOI 




Een der beroemste Puzzels uit het verleden is toch wel de TORENS VAN HANOI. 
Vol sens de over l ever ins zouden biJ een klooster aldaar drie pa I en staan. 
Om de l inker paal lasen oorspronke I i J k G4 souden rinsetii alien van verschil- 
lende diameter en van beneden naar boven van aroot naar klein seranssch i kt . 
De taak van de k l ooster I i nsen is om elke das een ring van een paal naar een 
andere te verp l aattsen, zodanis dat uiteindeliJk alle 64 r i nsen een toren 
vormen om een andere paa I . Nooit mas daarbi J een rins op een rins met klei- 
nere diameter komen te l i ssen. Is de taak volbracht dan versaat de wereld. 
Gelukkis waren er in die tiJd nos seen computers anders hadden we d i t spel 
nooit kunnen spelen. 



schiJf 1 

schi J f 2 

schi Jf 3 

schiJf 4 




I 

I 
I 
I 



I 



•= = = = = = = = = 



paal no 1 



paal no 2 



paal no 3 



10 REM SCHOONMAKEN BEELDSCHERM 


AftNTPIL SCHIJVEN ? 






20 INPUT" AANTAL SCHIJVEN ? "5N 


SCHIJF: 


1 


VAN 


: 1 


NAAR 


: 2 


30 DIMICN), JCN),BCN) 


SCHIJF: 


2 


VAN 


1 


NAAR 


: 3 


40 I(N)=1!J<N)=3:K-=N 


SCHIJF: 


1 


VAN 


! 2 


NAAR 


: 3 


50 IFK=1THENGOTO100 


SCHIJF: 


3 


VAN 


' 1 


NAAR: 2 


E0 I1 = I(K) : J1=J<K) tK«=K-l 


SCHIJF: 


1 


VAN 


3 


NAfiR: 1 


70 IFB(K+1)-1THEN90 


SCHIJF: 


2 


VAN 


3 


NAAR : 2 


80 I(K)=Il:J<K>=E-Il-JltGOTO50 


SCHIJF: 


1 


VAN 


1 


NAAR 


: 2 


90 ICK)=E-Il-Jl!J(K)<risGOTO50 


SCHIJF: 


4 


VAN 


1 


NAAR 


: 3 


100 IFB<K)=0THENGOTO140 


SCHIJF: 


1 


VAN: 


2 


NAAR 


: 3 


110 B(K)=0:K=K+1 


SCHIJF: 


2 


VAN. 


2 


NAAR 


1 


120 IFK<-NTHENGOTO100 


SCHIJF: 


1 


VAN: 3 


NAAR 


1 


130 END 


SCHIJF: 


3 


VAN: 2 


NAAR 


3 


140 PRINT"SCHIJF:"lK;" VflN!"lI(K)l" NAAR* "UCK) 


SCHIJF: 


1 


VAN: 1 


NAAR 




150 B<K)=ltGDTD50 


SCHIJF: 


2 


VAN- 


1 


NAAR: 


3 




SCHIJF: 


1 


VAN: 


2 


NAAR : 3 
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ASSEMBLER FOR FORTH. 



6. van Qpbroek 
Hooglanden 28 
9881 LB Zuidhorn 

This is an assembler to use 6582 code 
within FORTH. It can be used with the 
7?-standard FORTH from the cassette 
library for the JUNIOR without drives. 
For other versions of 79-standard FORTH 
some changes in the addresses of the 
subro 




The assembler 
instructions: 



CLV, 



the following 



CI 



SEC, 


CLD, 


SED 


NOP, 


DEX, 


INX 


TXA, 


TAY, 


TYA 


RTI, 


PHA, 


PLA 


STA, 


ADC, 


SBC 


ORA, 


DEC, 


INC 




K 


3 



CMP, 
ASL, 
STY, 



INY, 
TSX, 
PLP, 
EOR, 
LSR, 
CPX, 
)JMP, 



The (optional) addressing mode is placed 
BEFORE the instruction and is coded by: 

It (immediate) 

.A (accumulator) 

,X (indexed-X) 

,Y (indexed-Y) 

X) (indexed-indirect) 

)Y (indirect-indexed) 

Absolute and zero-page addressing is 
default. 

Conditional branches are coded by the 
construction: 

test IF, ... (optional ELSE, ... ) ENDIF, 

or the construction: 

BEGIN, ... test UNTIL, 

For 'test' you can use: 

8= (equal) 
8< (minus) 
CS (carry set) 
VS (overflow set) 

which tests can be followed by an 
optional NOT. 

A code definition has the construction: 

CODE name ENDCODE 

For code subroutines you can use the 
construction: 

LABEL name RTS, 

Labels can be defined with: 

ASSEMBLER value ALABEL name 

e.g. 

ASSEMBLER HEX 1334 ALABEL PRCHA 



GEVOP: 19/11/84 ) 



K 94 

( XXXXX 6582 ASSEMBLER XXXXX 
VOCABULARY ASSEMBLER ASSEMBLER DEFINITIONS 

VARIABLE MODE FORTH DEFINITIONS DECIMAL 

' ASSEMBLER 6 ♦ 32 +0RIGIN ! ( LOCK VOCABULARY ASSEMBLER ) 

: ASSEMBLER [ ASSEMBLER I 8 MODE ! ASSEMBLER ! 
: CODE ASSEMBLER CREATE LATEST PFA DUP CFA ! ; 
: LABEL ASSEMBLER CREATE ; 
: ENDCODE [COMPILE! FORTH ; ,_„, ATr 
: jCODE ASSEMBLER [COMPILE! ;C0DE ; IMMEDIATE 



SCR 
8 
1 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 

11 

14 
15 



SCR It 97 



DEFINITIONS 



HEX 



8 ( 

1 : 

2 1 

3 4 
4 

5 : 

6 

7 

8 i 



XXXXX 6582 ASSEMBLER XXXXX 
MODES (BUILDS C, DOES) C8 MODE ! 
MODES It 2 MODES .A 

MODES ,Y 5 MODES X) 



GEVOP: 29/18/84 ) 



3 MODES ,X 
6 MODES )Y 



18 : 
11 

12 : 
13 

14 : 
15 

SCR II 
8 ( 
1 : 
2 

3 : 
4 

5 : 

7 

8 : 
9 

18 : 
11 

13 
14 
15 



PAGE_ZERQ ( TEST ON ADDRESS IN PAGE ZERO 

OVER 888F SWAP U< IF 18 MODE +! THEN ; 

( TEST ON IMMEDIATE ADDRESSING 

iE 8 1 = IF 9 + C. C, 8 ELSE 1 THEN ; 
ACCU ( TEST ON ACCU ADDRESSING 

MODE 8 2 = IF 9 + C. 8 ELSE 1 THEN : 
Z.X ( TEST ON ZERO.X ADDRESSING 

MODE 8 3 = IF 15 + C. C. 8 ELSE 1 THEN l 
Z.Y < TEST ON ZERO.Y ADDRESSING 

MODE 6 4 = IF 15 + C, C, 8 ELSE 1 THEN ; 



XXXXX 6582 ASSEMBLER XXXXX 
(IND,X) ( TEST 

MODE 8 5 = IF 1 + C. C, 8 
(IND).Y (TEST 
MODE I 6 = IF 11 + C, C 
ZfcABS 

MODE 8 -DUP 8= IF 5 + C, C, 
ELSE 18 = IF D ♦ C, , 
A.X ( TEST 

M5DE i DUP 13 = SWAP 3 « OR 

Si 8 DUP 14 = SWAP 4 = 
-) 



C, C, 8 
( TEST 



GEVOP: 83/81/85 ) 

ON X-IND1RECT ADDRESSING ) 
ELSE 1 THEN : 

ON INDIRECT-Y ADDRESSING ) 
ELSE 1 THEN : 

ON ZERO AND ABSOLUTE ADDRESSING ) 



8 ELSE 1 THEN THEN : 
ON ABSOLUTE-X ADDRESSING 
IF ID + C, ,8 ELSE 1 THEN ; 
ON ABSQLUTE-Y ADDRESSING 
IF 19 + C, ,8 ELSE 1 THEN ; 



SCR 
8 
1 
2 



I 99 

( 
: 



4 

5 18 SINGLE CLC, 

6 58 SINGLE CLI, 

7 CA SINGLE DEX, 

8 AA SINGLE TAX, 

9 9A SINGLE TXS, 
18 48 SINGLE PHA, 
11 68 SINGLE RTS, 

ir 

14 
15 



6582 ASSEMBLER XXXXX m a 

(BUILDS C, DOES) MODE DUP 8 8 ROT ! 3 
( TEST ON CORRECT MODE 
C8 C, | 



38 SINGLE SEC, 
78 SINGLE SEI, 
E8 SINGLE INX, 
8A SINGLE TXA, 
BA SINGLE TSX, 
68 SINGLE PLA, 
48 SINGLE RTI, 



GEVOP: 29/18/84 ) 
?ERR0R 

AND RESET MODE ) 



F8 SINGLE SED, 
EA SINGLE NOP, 
C8 SINGLE INY, 
98 SINGLE TYA, 



08 SINGLE CLD, 
B8 SINGLE CLV, 
88 SINGLE DEY, 
A8 SINGLE TAY, 



88 SINGLE PHP, 28 SINGLE PLP, 
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Labels and macro's: 



SCR « 188 



Hi thin the assembler there are some 
predefined labels and macro's. The 
■following description is take from the 
fio-FORTfl MODEL from the fig FORTH 
INSTALLATION MANUAL. 

IP address of the interpretive pointer 

in zero page. 
W address of the code field pointer 

in zero page. 
N address of an 8 byte scratch area 

in zero page. 
XSAVE address of a temporary register for 

X in zero page. 
UP address of the user pointer in zero 

page. 

BOT address of low byte of a 14-bit 

stack item with ,X addrress mode. 

X register locates computation 

stack in zero page, relative to 

address $8888. 
BOT 1+ address of the high byte of the 

bottom stack item, ,X mode present. 
SEC address of the second stack item 

low byte as for BOT. 
SEC 1+ address of the high byte of the 

second stack item as for BOT 1+. 
R address of the low byte of the 

return stack with .X mode present. 
R 1+ address of the high byte of the 

return stack with ,X mode present. 



Other items 
stack can be 

BOT n * 
TSX, R n ♦ 



jtation and return 



For accessing items on the return stack 
use the instruction TSX, first and 
restore X to the top of the computation 
stack afterwards. 

PREDEFINED ROUTINES: 



PUT 



PUSH 



PUT8A 



address of routine to replace 
the present computation stack 
high byte from the accumulator, 
and put from the machine stack 
one byte which replaces the 
present low stack byte; continue 
on to NEXT. 

address of routine to repeat PUT 
but creating a new bottom item 
on the computation stack. 



PlTMhe 



with 



accumulator at low stack 
the high stack byte zero. 
PUSH8A address of routine to PUSH the 

accumulator at low stack byte with 
the high stack byte zero, 
address of routine to remove one 
16-bit item from the computation 
stack. 

address of routine to remove two 
16-bit items from the computation 
stack. 



POP 



SCR 



< ***** 6582 ASSEMBLER ***** 
: TYPE1 (BUILDS C. DOES) C8 
IMM IF PAGE_ZER0 ZWBS 

IF Z,X IF A,X IF A.Y IF <IND,X> IF (IND),Y 3 ? 
THEN THEN THEN THEN THEN THEN 8 MODE " 



GEVOP: 29/18/84 ) 



88 TYPE1 /STA/ 68 TYPE I 
48 TYPE1 EOR, 28 " 



: STA, MODE 6 1 = 3 ?ERR0R /STA/ ; 

: TYPE2 (BUILDS C, DOES) C8 
ACCU IF PAGE_ZER0 ZfcABS 

IF Z,X IF A,X 3 ?ERR0R 
THEN THEN THEN 8 MODE i ; 

-) 



GEVOP: 29/18/84 ) 



ft 181 

< ***** 6582 ASSEMBLER ***** 

CI TYPE2 /DEC/ El TYPE2 /INC/ 81 TYPE2 ASL, 41 TYPE2 LSR, 
21 TYPE2 ROL, 61 TYPE2 ROR, 



1 
2 
3 
4 
5 
6 

7 : BIT, IF PAGE-ZERO 7AABS 3 rtRROR 8 MODE 



: DEC, MODE 8 2 = 3 ?E 
: INC, MODE 8 2 = 3" 



9 
16 
11 
12 
13 



SCR 
8 

2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 

SCR 
8 
1 
2 
3 
4 
5 
6 
7 
8 
9 
18 
11 
12 
13 
14 
15 



: STX, 81 PAGE-ZERO ZWBS IF Z,Y 3 7ERR0R THEN 
8 MODE ! ; 

: STY. 7F PAGE-ZERO ZWBS IF Z,X 3 7ERR0R THEN 
8 MODE ! ; 



tt 182 

( ***** 6582 ASSEMBLER ***** GEVOP: 29/18/84 ) 

: CPX. D7 IMM IF DROP DF PAGE-ZERO ZfcABS 3 7ERR0R 

THEN 8 MODE ! ; 
: CPY. B7 IMM IF DROP BF PAGE-ZERO ZWBS 3 ?ERR0R 

THEN 8 MODE ! ; 

: LDX, 99 IMM IF DROP Al PAGE-ZERO ZWBS IF Z,Y 3 ?ERR0R 

THEN THEN 8 MODE ! : 
: LDY, 97 IMM IF DROP 9F PAGE-ZERO ZfcABS IF Z,X 3 7ERR0R 

THEN THEN 8 MODE ! ; 

: JMP, NODE 6 3 7ERR0R 4C C, , ; 
: JSR, MODE 8 3 7ERR0R 28 C, , ; 
: >JMP, MODE 8 3 7ERR0R 6C C, , | 

--) 



It 183 

< ***** 6582 ASSEMBLER ***** 
: IF, HERE SWAP . 2 : 
: ENDIF , 2 7PAIRS DUP C8 4C = IF 

ELSE 
THEN ! 

: ELSE, )R HERE 8 JMP, SWAP R) ENDIF, 2 ; 
: BEGIN, HERE 1 : 

: UNTIL, SWAP 1 /PAIRS C, HERE 1+ - C, ; 



GEVOP: 29/18/84 ) 
1+ ! 

- 2 - SWAP 1+ C! 



: NOT 28 XOR ; 

D8 CONSTANT 8= 
98 CONSTANT CS 

-) 



18 CONSTANT B< 
58 CONSTANT VS 
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BINARY address of routine to renove one 
16-bit iten of the computation 
stack and put the accumulator (high) 
and machine stack (low) over what 
was second. 

NEXT address of the inner-interpreter 
to which all code routines must 
return. NEXT fetches indirectly 
reff erred to IP the next compiled 
FORTH word address. It then jumps 
indirectly to pointed machine 
code. 

All the above routines continue with NEXT 
and must be called with JMP, the next 
routine is a subroutine and must be 
called with JSR, 

SETUP address of routine to move 16-bits 
items to zero-page. Item quantity 
is in accumulator. 



SCR It 164 
8 ( ***** 6582 ASSEMBLER ***** 
1 : ALABEL (BUILDS , DOES) 6 : 
2 

3 88A6 ALABEL N 

4 88B3 ALABEL UP 

5 283F ALABEL PUT 

6 21EC ALABEL POPTWO 
? 23DC ALABEL PUSH8A 



8BAE ALABEL IP 
80B5 ALABEL XSAvT 
2844 ALABEL NEXT 
21EE ALABEL POP 



6BJ0P: 19/11/84 ) 



88B1 ALABEL W 

283D ALABEL PUSH 

2184 ALABEL SETUP 

23A3 ALABEL BINARY 



9 
18 
11 
12 
13 
14 
15 

SCR 



BOT 
R 



181 



SEC 2 



('STA^CK POINTER ON 1ST EMPTY POS.) 



It 185 

( ***** 6582 ASSEMBLER ***** GEVOP: 29/18/84 ) 

LABEL PUTBA BOT 1+ STA, 8 It LDA, BOT STA, NEXT JMP, 



FORTH DEFINITIONS DECIMAL 
CR ASSEMBLER LOADED 1 



1 

2 

3 

4 

5 

6 

7 

8 

9 
18 
11 
12 
13 
14 

15 HERE FENCE 



LATEST 12 +0RIG1N 
HERE 28 +0RIGIN 
HERE 38 +0RIGIN 



iS 



MYSTERI EUZE HAND-UPS 



overaeschake I d van 



Iedereen die rMelmatis achter een computer ziti heeft het meer dan eens 
meesemaakt: Plotsel ins "hanst" het systeem. Om onverk I aarbare redenen zit 
de hele boel muurvast. Op bet toetsenbord wordt niet meer sereaseerd en 
ook bonken op de beeidbuis helPt niet. De computer is "down" sesaan. zoals 
dit in vakJargon heet. Het is ai een Heel oud zeer, dat zelfs biJna dase- 
liJks bij srote computers voorkomt. Computer hans-ups hebben altiJd iets 
raadselacht its sehad. De oorzaak kan zowel in de hardware als i n de soft- 
ware zitten of in een kombinatie van beide. Niet zo bekent is dat de oor- 
ook in ons openbare e I ekt r i c i te i tsnet Kan lissen. De spann i nsen kunnen 
nosai wisseien met reseimatise "dips". Wanneer wordt 
het ene net op het andere* doen 
moderne thyristor schakelinsen 
dat heel sne I en voor de mens 
onmerkbaar. 

Maar niet voor de computer. Als 
sedurende een onderdeel van een 
sekonde de spanning sterk vari- 
eertt reaaeren de chips daar on- 
middelliJk op en in sommise se- 
vallen vervalt de computer in 
"idle loop": een soort coma toe- 
stand, waaruit seen ontsnappins 
moaeliJk is. tenziJ de sebruiker 
hem met de reset- of aan/uit 
knop uit ziJn lijden veriost. 
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COMMODORE BASIC V2 (as present in the Commodore VIC-26) . 

Tokenised Microsoft BASIC keywords and addresses H. de Vries 

Analogous to the publication for Comraodore-S4 by A. Mueller, 
DE 6582 KEMNER, December 1333, pages 5-8. 



COMMANDS : 

KEVWORDS CORRESPONDING TO CB3E : 

ADDRESSES CORRESPONDING TO C88C : 

THE ADDRESSES OF ROUTINES FOR COMMANDS ARE THE ADDRESSES j 

MINUS 1 , BECAUSE THE ROUTINES ARE INVOKED TROUGH RTS. : 



KEYWORD TOKEN ADDR-1 



END 


S3 


CS38 


WAIT 


92 


D82C 


FOR 


8 1 


074 i 


LOAD 


33 


E164, 


HE H T 


82 


CD1D 


SAVE 


34 


E152 


DATA 


33 


C8F7 


VERIFY 


35 


EiSl 


INPUTS 


84 


CBA4 


DEF 


98 


D3B2 


INPUT 


85 


CBBE 


POKE 


97 


D823 


D I M 


63 


D888 


PRINTS 


98 


CA7F 


READ 


37 


CC85 


PRINT 


39 


C ASF 


LET 


88 


C3A4 


CONT 


9A 


0856 


GO T 0 


83 


C8SF 


LIST 


3B 


CS3B 


RUN 


8A 


0878 


CLR 


3C 


C85D 


IF 


38 


":927 


CMD 


SD 


CA85 


RESTORE 


8C 


C81C 


S¥S 


9E 


E128 


GOSUP 


8D 


C8S2 


OPEN 


9F 


El BA 


RETURN 


8E 


CSD • 


CLOSE 


A8 


E1C3 


R EM 


8F 


C S3A 


GET 


Al 


CB7A 


Sr OP 


98 


C32E 


NEW 


A 2 


C641 


ON 


9 1 


C34A 


GO 


CB 


(C812) 



t 

MISCELLANEOUS KEVWORDS : 

: 

KEYWORDS CORRESPONDING TO CI 29 : 



KEYWORD TOKEN 

TAB i A3 

TO A4 

FN A5 

SPC < A6 

THEN A7 

NOT AS 

STEP A3 
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DE|i " — m £ J r -M KENMER 



COMMODORE BASIC V2 (as present in the Commodore VIC-28; . 
Tokenised Microsoft BASIC keywords and addresses 



DVADIC OPERATORS : 

KEVWORDS CORRESPONDING TO CI 48 ; 

PRIORITIES AND ADDRESSES CORRESPONDING TO C830 : 

I 

THE ADDRESSES 0~ ROUTINES FOR DVADIC OPERATORS ARE THE 5 

ADDRESS MINUS i. BECAUSE THE ROUTINES ARE INVOKED TROUGH s 

A RT3 INSTRUCTION. t 



KEVWORD TOKEN ADDR-1 PR TV 



+■ 


AA 


DSSS 




AB 


D852 


i 


AC 


DA2A 


/ 


AD 


DBl 3 


1 


AE 


DF7A 


AND 


Ar- 


: FEB 


OR 


Bo 


CFE5 


mo radio 


AB 


DFB3 


monadic NOT 


A8 


CED3 




bi 


DBl 5 




B2 


D915 




B3 


DBl 5 



79 


addi t ion 


7i 


subtraction 


7B 


multipl icat ion 


7B 


d i v i e x on 


7F 


ewponentat ion 


58 


logical AND 


4S 


i og i ca 1 OR 


7D 


nega t i on 


5A 


logical NOT 


54 


compar i son 


64 


compar ison 


64 


compar i son 



FUNCTIONS 



KEVWORD 



-UNCTIONS CORRESPONDING TO C14B 
ADDRESSES CORRESPOND! fiG TO €952 



TOKEN 



ADDR 



KEVWORD 



TOKEN ADDR 



set- 

INT 
ABB 
I iSR 
FRE 
POS 
5QR 
RND 
LOG 
EXP 
COS 
SIN 



B4 
B%5 
BS 
B7 
B3 
BS 
BA 
BB 
BC 
BD 
BE 
BF 



DC3S 
DCCC 
DC 56 
8688 
D37D 
D39E 
DF71 
E8S4 



DFED 
E261 
E2S3 



I AH 

ATN 

PEEK 

LEN 

STR$ 

VAL 

ASC 

CHR* 

LEFT* 

RIGHT* 

MID$ 



CB 
CI 
C2 

C4 
C5 
C6 
C7 
C8 
CS 
CA 



E2B3 
E38B 
D88D 
D77C 
D465 
D7AD 
D78B 
DSEC 
D7BB 
D72C 
D737 



Note: 1) Bit 7 in the last character of each keyword is set to 

determine the end of a keyword. rt| 
2) Keywords are tokenised by adding $88 to their relative 
(hex) position in the table. 



KENNER 



0010 
0020 
0030 
0040 
0050 
0060 
0070 

ooeo 

0090 
0100 
0110 
0120 
0130 



ID ON KB-9 MICROSOFT BASIC PROGRAMS 

BIJ HET SCHRIJVEN VAN BASIC PROGRAM- 
MA'S OP CASSETTE EN HET LATER TERU6- 
LEZEN MISTE IK DE MOGELIJKHEID DE 
PROGRAMMA'S GEEN IDENTIFICATIENUM- 
MER MEE TE KUNNEN 6EVEN. ZOALS DAT 
WEL KAN IN HET MONITORPROGRAMMA PM 
VAN DE JUNIOR-COMPUTER. 
IK HEB DIT EENV0UDI6 OP KUNNEN LOS- 
SEN. MEN KAN WELISWAAR SLECHTS 1 CY- 
FER OF LETTER MEEGEVEN. HAAR DIT IS 





0140 


: NIET ZO EEN BEZWAAR ALS MB 


1 +/- 64 




0150 


: MOGELIJKHEDEN HEEFT. 






0160 


■ 

* 






0170 


: DOOR : GAMIEL DE LY 






0180 


: E. BLAESSTRAAT 7 






0190 


: B-9218 6ENT. 






0200 


• 






0210 


.fift *1A00 






0220 


■ 






0230 RDTAPE 


.DE (0B02 


READ THE TAPE 




0240 DUMP 


.DE W9DF 


WRITE ON TAPE 




0250 RECCHA 


.DE »12AE 


RECEIVE CHARACTER FROM KEYBOARD 




0260 RESTTY 


.DE *14BC 


RESET THE TTY 




0270 ID 


.DE «1A79 


IDENTIFICATION OF THE DUMPT PR06RAM 




0280 WSTRT 


.DE $2348 


WARM START BASIC 




0290 


■ 




1A00- 20 AE 12 


0300 


JSR RECCHA 


WAIT FOR A KEY 


1A03- 8D 79 1A 


0310 


STA ID 


DEPRESSED KEY BECOMES IDENTIFICATION 


1A06- 20 DF 09 


0320 


JSR DUMP 


WRITE PROGRAM ON TAPE 


1A09- 20 BC 14 


0330 


JSR RESTTY 


RESET THE TTY 


1A0C- 4C 48 23 


0340 


JMP HSTRT 


RETURN TO BASIC 


1A0F- 20 AE 12 


0350 


JSR RECCHA 


WAIT FOR A KEY 


1A12- 8D 79 1A 


0360 


STA ID 




1A15- 20 02 OB 


0370 


JSR RDTAPE 


READ PROGRAM ON TAPE WHIT THIS ID 


1A18- 20 BC 14 


0380 


JSR RESTTY 




1A1B- 4C A9 27 


0390 


JMP *27A9 






0400 








0410 


: AANPASSEN IN KB-9 BASIC : 






0420 


: $27A3 - JMP $1A0F 






0430 










: (Red.: Dieaenen die. zoals Gaaiel de Lv. snel »et 




0450 


: z'n oas aekochte KB-9 Basic orooraMa's 




0460 


Mil kunnen bewaren. 


zal hieriede snel ae- 




0470 


: holoen zi in. Wie de Basic noo teer oebrui- 




0480 


: kersvriendeliik Nil taken doet er ooed aan 




0490 


: de Collected Patches on KB-9 aan te schaf- 




0500 


: fen. ) 






0510 


.en 
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ElE 5 D S 



KENNER 



P I N-AANSLU I T I MGEM VIA+ACIft PRINT 

:-H + H<:+:>H:+: + * + * + * + H-:*#^ 

25 POLICE MOLE CONNECTOR VI ft AANSLU I T I NGEN 



Pfi0 


1 


GROEN 




Pfti 




WIT 


qccTF LIT 1 i FM 


Oft') 




IHH rv..} 


HIERBIJ STUUR IK JE EEM ZQ VQLLEDIG MODEL UK 


PA3 
PA4 


4 


ORANJE 


5 


RUUD/ Wl 1 


dou'u'FT uopn— £'l\i c>nPT|JDOF RPTRFFFftWDE 

! Hr\r\£. ! r!H;AL> SUr 1 WHnL s^- ! r\u-.j ! ~-\\u*- . 


Pfl5 




GE'.EL 


J!N.t. VtKb^Lt liM 1 tKr HLt fXHHn 1 u 


PRE 




GROEN/ Wl 1 




PA7 


s 


BRUIN 


OP DEZE KftftRT ZITTEN DE VOLGENDE COMPQNENTEN 1 


PB0 


9 


GRUB 


ADRESBUFFERS, DATABUFFERS, ADRESSELEKTIE? 


PBl 


10 


ZWftRT 


ACIA, VIA EN EEN RS 232 GEDEELTE. 


PB2 


l i 


GROEN 




PB3 


i 2 


WIT 




PB4 




PfiftRS 




PBS 


14 


ORANJE 


TOT SCHRIJVENS, 


PBS 


15 


ROOD/ WIT 




PB7 


lb 


GEEL. 


W* ft. VPN DER LAAN 








OSSENWEIDE 2 


Cfii 


17 


ZWftRT 


ZWftftG 15S9 MR 


Cft2 


IS 


GR1JS 


TEL 5 02290-34723 


CBi 


19 


GROEN/ W I T 




_ .... ( 
I-/ LT 1 


20 


BRUIN 




+5V 


21 


ROOD 




+5V 


22 






CND 




BLfiUW 




GND 


24 






CND 


25 







25 POLICE FEMALE CONNECTOR ftCIfl 



TXD 2 ORANJE > 

RTS 4 PfiftRS > 

RXD 3 WIT < 

PCD 8 GROEN < 

CTS 5 ZWftRT < 

GND 7 BLfiUW 

GND 1 SIGNAL GROUND 

+12V 20 ROOD 



UIT INTERFACE 
UIT INTERFACE 
INTERFACE 
I NTERFftCE 
INTERFACE 



IN 
IN 

IN 



TRANSFER DftTA 
REQUEST TO SEND 
RECEIVE DftTA 
DftTR CARRIER DETECT 
CLEAR TO SEND 



23 



DO 


J3 


§i 


n 








19 


D5 


28 


D6 


2? 


D7- 


2i 



V 

i 




JUNIOR 



PRINTER OKI M 80 



- I00NF 
1 



1 HO 


cm 


33 


LA2 


1 


PRO 


3 


- / 


1 


. 1 


5 


-% 


i 




7 


. 5 


8 


- i : 


9 ^ 




11 _ 2 


11 






a — 


16 


. & 


1* 




Id 


CHI . 


13 


Chi . 



17 

IS 

1 

1 

3 

1 

5 

i 

J 

S 

9 

ID 

II 

II 

15 

II 

IS 

li 

13 

20 



TXD 

m 

6ND 

DCO 
H2V 



1 • 
1 . 
i"« 
?<■ 
6 • 
E» 
20* 



J 

3 
11 
7 
6 

S 

10 
1 



Q>ND 
RXO 

5ND 

tTCD 
H2.V 



ADR.ES>- £ ELEKTIE 



25 P0LI6E MALE CONN. 



100 NF 



XOO0 
XO01 
XOIO 



CONTROL REG. ACIfl 
DATA RE6. ACIA 
XOIF _ 16 k VIB ADZESSEN 




IS POLICE FEMALE CONN. 
8* 75168 



- 5 



H2V 



7 1 SIGN 6N0. 



20 



HATE 
\T0R 

til 



11 



12 



11 VCC 



11 R£B VLC 



li AiA | 



JL'S. ALLEZ LS, UITVOERIN6 EN MET IDONF ONT KOPPELD 





6N0 


VCL 


7VLS06 


7 


If 


71 Li 07 


7 


11 


11 LSOB 


7 


11 


71 LS as 


8 


It 




10 


10 


M LbS 50 


1 


11 


NIC Hill 


12 


11 


SN75183 


1 


11 


iM751S! 


7 


1 11 (411V) 



1.3131 MHZ 



!:■( | — , « — , | | g—M KENNER 




26 



» m m mm i i m m mm mm m m 

PE f-l 5 □ g- 3 KENNER 




COM PONEN T E N - L IJST Vlft+ACIft PRINT. 



3+ 


4 PDLIGE 


DIPSWITCH 


1 * 


8 POL. IDE 


DIPS WITCH 


3 : + : 


74LS85 




4* 


74LS241 




3.+ 


74LS0E 




1* 


74L..B07 




I* 


74LS0S 




1 * 


SN 75188 




i * 


SN 73189 




t* 


MC 605(3 




i * 


MC 14411 




3. + 


6522 




1* 


KRISTAL 1. 


S432 mi 


12*= 


IK KQDL 




1* 


ISM KODL 




3* 


39K KDQL 




5* 


5Kb' KODL 




3 : + : 


1 NF 




16* 


100 NF 





1* £4 POLICE DIN COONECTOR 
1+ 25 POLICE FEMALE CONNECTOR 
J.* 25 POLICE MOLE CONNECTOR 



KENMI 



0020 : 
0030 : 



00b 0 s 
0070 S 
0080 = 
0090 I 
01120; 
01 10 s 
0120 s 
0130 J 
0140: 
0150: 
0160 s 
0170: 
0:1. 80s 
0190 s 
0200: 
0210 s 
0220: 
0230: 
0240: 
0250: 
0280 S 
0270 : 
0280: 
0290 S 
0300 ! 
0310: 
0320 i 
0330: 
0340: 
0350: 
0380: 
0370 : 
0380 ! 
0390 : 
0400 : 
0410 s 
0420 s 
0430 s 
0440 : 
0450 • 
0480 : 
0470 : 
0430 s 
0490 s 
0500 s 
0510 s 
0520 s 
0530 s 
0540 s 
0550 : 
0560 s 
0570: 
0580 s 
0590 ! 

0600= F9D1 P9 03 



* * :+: * :+: + * :+: + * * * * + *S :+: :+: +: * +: :+: :+: :+: :+: :+: :+: :+: :+: :+: .■+: 

WIJZIGINGEN IN PM TEN BEHQEVE VON PRINTER- 
ROUTINE. 

:+: :+: :+: :+: :+: :+: >f : :+: -..(•: :+: :+: :+: :+: :+: :+: >(•: :+: :+: :+; :+: : + : : + : : + : : + : >(.; : + : # jfc jfc 

DEZE WIJZIGINGEN ZIJN NOODZAKELIJK OM OP 
DE JUNIOR VIA EEN INTERFOCE-KOORT, 
KARAKTERS TE KUMNEN VERZENDEN NAAR EEN 
OKI MICROLINE MU 30. 

AD RES $1003 = 05 F3 00 WORDT 4C 00 F9 
00 =LOW PRINTER ROUTINE 
F9 =H I GH PRINTER ROUTINE 
50 »■ P PROGRAMMA POINTER 



PRINTER ROUTINE 



AD RES SEN EN SUBROUTINES 



cr a a i7\ 








PRINTR 


ORG 


$F9A0 










h f 


CLSCR 




*E74E 


LLhOh SCREEN 






CMS 


r H 


PRITEK 


at 


$FO40 


PR I NT Tfc.KS 1 






ACT 


1 Z 


GETCH 




$120E 


bET CHARACTER 






lT Hi 
taki 


r- /-\ 
rH 


PCC 




$FOS0 


SPRING NAAR PROG PQINl 








H0 


OCIIOCO 


* 


$0000 


CONTROL REGISTER OLIO 






k! J. 


Hl'J 


OCIODO 




$0001 


DOTO REG. OLIO !iCES50 






r_-r- 

pr 


■1 ITS 
10 


JUNIOR 


* 


$105F 


Wfi RME STRRl j UN 10k 










PAGE ZERO ODRESSEN 










00 


SOLTEK 


:+: 


$0031 


START ftDRES LOW TEKST 








30 


SAHTEK 




$0032 


START ADR. HIGH TEKST 






FF 


00 


DOTBUF 


* 


$00F'F 


DOTO BUFFER 


F9O0 


20 


4E 


E7 


START 


JSR 


CLSCR 


CLEAR SCREEN 


F'903 


09 


00 






LDAIM 


$00 


IN IT PRINT TEKST 


F9A5 


85 


3 1 






STOZ 


SOLTEK 




F907 


09 


FO 






LDAIM 


$F0 




F909 


nc 
OvJ 








STOZ 


BAHTEK 




F90B 


20 


40 


FO 




JSR 


PRITEK 


PRINT TEKST UIT 


F90E 


20 


OE 


1 V 




JSR 


GETCH 


POK KOROKTER 


F9B1 


C9 


31 






CMPIM 


$3 1 


TOETS 1 BINNEN? 


F9B3 


D0 


03 






BNE 


PRIOON 


PRINTER OON 


F9B5 


4C 


60 


FO 




JMP 


PCC 




F 9Bo 


C9 


32 




PR I HON 


CM P IN 


$32 


TOETS 2 BINNEN? 


F9BA 


D0 


11 






BNE 


PRIUIT 


PRINTER UIT 


F9BC 


09 


03 






LDAIM 


$03 


RESET AC I ACQ MCES50 


F9BE 


3D 


00 


00 




STO 


OCIOCO 




F9C1 


09 


51 






LDAIM 


$51 


IN IT PRINTER OON 


F9C3 


3D 


00 


00 




STO 


OCIOCO 




F9CE 


09 


01 






LDAIM 


$01 


I NIT DOTO BUFFER 


F9C8 


per 


FF 






STOZ 


DOTBUF 




F3C0 


4C 


5F 


10 




JMP 


JUNIOR 




F9CD 


C9 


•JO 




PRIUIT 


CMPIM 


$33 


TOETS 3 BINNEN? 


F9CF 


D0 


CF 






BNE 


START 





HIER KOMEN WE VONUIT DE RESETROUTINE 
ODRES $FF00 TERECHT. 

LDOIM $03 RESET OCIOCO 



□ s 



KENNER 



0610: F9D3 3D 00 fl0 



0520: 
0530: 
0640: 
0650 ! 

0560 5 

0670 : 
0580: 
0590 ! 
0700: 
0710: 
0720: 
0730 : 

0010". 

0020 : 



F9D6 85 FF 
F9DS 4C 5F 1! 



0050 : 
0070: 
0080: 
0090 : 
0100: 
0110: 
0120: 
0130: 
0140: 

0160: 
0170: 



0190: 
0200 s 
0210: 
0220: 
0230 : 
0240 : 
0250: 
0260 : 
0270 : 
0280 : 
0290 : 
0300 : 
0310 s 
0320: 
0330: 
0340 : 
0350 : 
0360 : 
0370: 
0380 : 
0390 : 
0400: 
0410: 
0420 : 
0430: 



F9DD . 
F9DD AE 51 
F9E0 3D 52 
F9E3 A5 FF 
F9E5 C9 03 



lft 
1A 



ST A AC 1 AGO 

STAZ DATBUF PRINTER STAAT NU UIT 
JMP JUNIOR 

TEKST BEG I NT OF ADRES $FA00 TOT $FA3B 

KEUZEs l=PRQGRAMMft POINTER 2= PR I NTEZR RAN 
3= PR INTER UIT 

INHOUD DATA BUFFER =01 ) PRINTER IS BAN 
INHOUD DATA BUFFER =03 > PRINTER IS UIT 



WIJZIGINGEN IN PM TEN BEHQEVE VAN 
SUBROUTINE PRINTER EN SUBROUTINE PRXNTTEK61 

+: :+: :+: if: :+: :+: :+::+: :+: :+: :+: :+: :+: :+: :+::+: :•!■: :+: :+: :4: :■(•: :+ : :+: :+: :+::+::+: :+: :+: :+: :•!•: :■>•: -M :+: 

VE PANDERING IN DUTCH 

ADRES 1337 SD 52 1A WORD"!" 20 E0 F3 JSR 

PRINTER SUBROUTINE 
VERANDERING IN GETCH 

ADRES 12DC AE 51 IFi WORD"!" 20 DS ~3 JSR 
PRINTER SUBROUTINE 







GEBRUIKTE 


ADRESSEN 


EN SUBROUTINES 


61 


1A 


SAVEX * 


$1A61 


SAVE X-REG. 


CO 
□i. 


1A 


CHAR * 


S1AG2 


DATA BUFFER CHARACTER 


00 


A0 


AC I AGO * 


$A000 


CONTR REG AC I A 


01 


AO 


AC I ADA * 


$A001 


DATA REG AC I A 


34 


13 


DUTCH * 


$1 334 


WEGSCHR. KARAKTER 






PAGE ZERO 


ADRESSEN 




30 


00 


AD * 


$0030 


LDA MET KARAKTER 


31 


00 


SftLTEK * 


$0031 


START ADR LOW TEKST 




00 


SftHTEK * 


$0032 


START SDR HIGH TEKST 




00 


60 * 


$0033 


RTS TERUD UI SUBR. 


FF 


00 


DATBUF * 


$00FF 


DATA BUFFER PRINTER 













SUBROUTINE P R I N T E R 



VANUIT DE SUBR. GETCH KOMT MEN OP ADRES 
$F9DD TERCHT EN VANUIT SUBR. DUTCH KOMT 
MEN OP ADRES $F9E0 TERECHT. 



SUBPRI ORG 
SUBROU LDX 
SUB ST ft 
LDfiZ 



$F9DD 

SftVEX X-REG TERUG 
CHAR SAVE ACCU 
DATBUF 

CMPIM $03 PRINTER UIT 



0440 : 


F9E7 


F0 


0D 






BED 


KAR 




0450 : 




AD 


30 


A0 


KARAK 


LDA 


ACIACO 




045k; » 


rnrr- 

F3EC 


•~if~t 

Z3 








ANDIM 


$02 




0470 s 


r~ r~i Ft r~ 

F9EE 


h0 


F3 






BEQ 


KARAK 


NOG BEEN NIEUW KARAKTE 


04S0 ! 


F dF 0 


.-V. T-. 

AD 




1 A 




LDA 


CHAR 






rar •.:> 




01 


H0 




ST A 


AC I ADA 


bCHRIJF KARAK I ER WEG 


0500 ! 


F3FS 


AD 


52 


IP 


KAR 


LDA 


CHAR 


KARAKTER TERUG IN RCCU 


051® • 


r~ o C" 

r 3h 3 


bb 








RTS 






,--y f jrr -r /Ti 


















0340 « 


















PM c"' cr iTi u 

\uZiO\0 


















WDfaKJ 5 










5 U B 


ROUTINE 


P R I N 1 TEKSf 


(91 C" ~7 ( "*7i m 


















err i i i ~i m 

I4_;o0 « 


h '-140 








PRITEK 


ORG 


$FA40 






C" EJ A f7l 

r HtHO 


H 3 


nn 

HL 1 




C"' T* P. PI "1"* 


LDA I M 


$AD 


INI ! bUBRuUT INE 


fli C f7i f* » 


r hifcz. 


nr 
0„J 








STAZ 


AD 




Bo 1 kJ ■ 


r H44 


Ha 


bb 






LDAIM 


$60 




i7'iC~'f71 ■ 
EiDjC.lt) « 


c o /i cr 


~.c::' 
OJ 








STAZ 


50 




0530 s 


FA4S 


20 


30 


00 


NIEUW 


JSR 


AD 


KARAKTER OPHALEM 


0640: 


FA4B 


C3 


IB 






CMPIM 


$1B 


ESCAPE TOETS 


0650 s 


FA4D 


F0 


as 






BEQ 


RTS 




0S50: 


FA4F 


20 


34 


13 




JSR 


DUTCH 


WEGSCHRIJVEM KARAKTER 


0670 S 


FA52 


EG 


31 






INC 


SALTEK 




0530 5 


FA54 


4C 


4S 


FA 




JMP 


NIEUW 




0530! 


FA57 


50 






RTS 


RTS 







0710: 
0720 s 
S730 t 
0740 : 
07^50 ; 
0750 s 
0770 = 
3730 s 
S730 ! 
0S00 ! 

0S10! 

0320! 
0330 s 
0340: 
0350? 



+ Hk >K :+: +: :*t >!•: :+: :+: :•(•: :-|.;:+: ■.•}: :+: >)■: » : iff, :+: : .|-: : + : gjq ^ : .|. : 

WIJZIGING IN SYM-BASIC TBV DEL' PRINTER 
DUTCH OP AD RES $0CSG WORDT 
JflP DUTCH AD RES 4C 34 13 

:+:;+::+: :+: :+: :+: :+: H-: + + :+: * + M-: * :+: * :+::+: :+::+::+::+::+: + ^ :+::+: >H 



:+: >t: ;+::+::+::+: + : :+: >}.: :+: :+: ^ : :+: :+: :+: :+: ;. K :+; : .(. : : + : ^ +: >h: ;+: : +: -i- if.; :+: ^ :+: :+: :+: 

WIJZIGING IN IN IT RESET OP fiD RES *FFS50 

AD RES $FF4C 4C 5F 10 WORDT 4C Dl F3 JMP 
PRINTER ROUTINE. 

*:+:*:+:+:+:H-:+::*::+:H-:^^ 



001 G ° 

2220: HET PROORAMMA PCC (DIT IS HET UITPRINTEN VAN DE 

0030 5 PROGRAM POINTER. 

20421 " 

2050 5 

3E50 5 FhG2 PCC ORG *FAS0 

0070! 

£030! F3 00 INL * $00FS 

0030! A7 10 PNT+S * *1SA7 
010G 5 

21 10 5 FAS0 A5 F3 LDAZ INL 

0120s FA52 Q0 00 LDYIM $00 

01305 FA 54 4C fi7 10 JMP PNT+3 
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DE 



□ 3 



KENNER 



0 1 50 s 
01603 

0170" 

0180! 

01 90s 

0200 ! 

0210s 
0220 5 

0010: 



0030S 

0040 S 
0050 s 
0050 s 
0070: 
0030 s 

0030! 
0100S 
0 1 1 0 ! 
0120! 
0130! 



E74E 



E74E A3 
E750 20 
E753 A2 
E755 A0 
E757 S3 



34 

3C 
34 



13 



0140! £753 D0 FD 

0150s E75A CA 

mm: E75B D0 FS 

0170: E75D E0 



VOOR HET RUTOMATISCH RESETTEN VPN DE JUNIOR 

KUN JE EVENTUEEL HET PROGRAMME "AUTOrlH' 1 

U1T DE E502-KENNER NO. 23 NEMEN, MAAR DAN MOET 

JE WEL DE REGELS 600, 610, 520 VAN DE 

P R 1 NT E R ROUT I NE HI ERA AN TOEVOEGEN 

EN DEZE DRIE REGELS OOK IN DE PRINTER- 

ROUTINE LATEN ZITTEN. 

^^f:^*^^^^^^^^:^^^^^ : +- * * +■:+::+: :+:*:+::+•■ >' * ■- ' +■ :+: + * >H * :+: * * 

SUBROUTINE CLEAR SCREEN. 

$ •+: * :•(■: :+: :+: :M :+: :+: * :+: * :+: + :+: :-k :+::+: +::+::<■::+: :+: +: :+: :+•' :+::■!■: sfi .+: :+: :+: * :+: 



CLE3CR ORG 
DUTCH * 



$E74E 
$1334 



LDflJH $0C 
JSR DUTCH 



KARAKTER WEGSCHRI JVEN. 
SCHOONKAAKKARAKTER JUNIOR 



LDXIM 
LAB0S LDYIM *FF 
LABEL DEY 

BNE LABEL 

DEX 

BNE LAB0S 

RTS 



DISKETTES EN TAPES ZIJN VERGEETACHTID 



Vee i coMPUttrttbru! Ken bewaren de orisinelen van hun dierbare prosramma' s 
op floppy disks of kassettebandJes in de vtrondersttl I in« dat de informa- 
tie daaroP vast list voor de eeuwisheid. In werke I i Jkhti d Kan de houdbaar- 
heid van de sows kostbare proiramma't op deze masnetische i n format i ed ri- 
sers slechts voor een beperkte tiJd wo r den sesarandeerd. Aansenomen wordt 
dat een soede kwaliteit diskette de informatie slechts voor ten hoosste 
twee Jaar kan vasthouden en op kassettebandJ es lets lanser. Op de sporen 
van de diskettes en band J es M ssen prosramma* s en sesevens vast in de vorm 
van kleine semasnet i seerde p i ek j es. Dit masnetisme is op den lanse duur 
onderhevis aan een vorm van sliJtase. De zosenaamde Brownie bewesins van 
de mo l ecu I en doet de informatie lanszaam 
maar zeker vervasen> terwiJl ook het kon- 
stante bombar dement van kosmische deeltJes 
een bedreisins vormt voor de bits en de 
bytes. 

Tenminste om de twee Jaar moeten orisinele 
diskettes word en sekopieerd om de informatie 
daarop weer nieuw masnetisch I even in te 
blazen. Het masnetisme op banden is i ets 
minder kwetsbaar. maar doordat ze soms st i j f 
ziJn opseroid. is Het raadzaam de banden 
reset mat is om te spoelen. Men voorkomt daar- 
mee dat de bandJes saan vastPlakken en in de 
kassette rekorder kapot wo r den setrokken. 




31 



2!fEi 5 D EE 



0010: 
0020 : 
0030 : 
0040 : 
0050 : 
0060 : 
0070 : 
0080 : 
0090 : 

0150: 
0160: 
0170: 
0180: 
0190: 
0200 : 
0210: 
0220 : 
0230: 
0240 : 
0250: 
0260 : 
0270 : 

0300: 
0310: 
0320 : 
0330 : 
0340 : 
0350 : 
0360 : 
0370 : 
0380 : 



11E8 



11E8 
11EA 



AS 

20 



0D 
8ft 



16 



11 ED 09 Oft 



11EF 
UFO 



2C 

fig 

2C 



08 



20 



11F5 4C 8fi 16 



1246 



0410: 
0420 : 
0430 : 
0440 : 
0450 : 
0460 : 
0470: 
0480: 1 
0490 : 
0500: 124B AO 00 
0510: 
0520 : 
0530 : 
0540 : 
0550 : 
0560: 
0570: 
0580 : 
0590 : 



58 lfi 
D6 11 



8fl 16 



fl9 00 
8D 58 lfi 



124D 2C 

124E AO 07 

1250 2C 

1251 AO OE 

1253 20 D6 11 

1256 4C E8 11 



F err. an da L 00 es 
Coleaio dos QrfSos 
Lq. Bait. a z a r Suedes 
CRLF ORG Uim 4300 PURT0 PORTUGAL 

**** PRINT BACKSPACE PATCH IN PRINTER MONITOR **** 

CRLF PRINT A CARRIASE RETURN & LINE FEED 
PRBS PRINT A BACK SPACE 
PRSP PRINT A SPACE 

************************************************** 

CR 



LDAIM $00 
JSR NPRCHA 

PRLF LDAIM $0A 

$2C 

PRBS LDAIM $08 
$2C 

LDAIM $20 
JMP NPRCHA 



LF 

(BIT) JUMP NEXT TWO BYTES 
B3 

(BIT) 
SP 

PRINT AND RETURN 



************************************************** 

INITIALIZE PRINT FLAG 
JUNIOR PRINT ' JUNIOR' 
EDITOR PRINT ' EDITOR' 
ASSEM PRINT ' ASSEMBLER' 

************************************************** 



SERFLG * $1A58 
MESSY * $11D6 
NPRCHA * $168A 

ORG $1246 

JUNIOR LDAIM $00 

STA SERFLG SET PRINT FLAG TO VIDEO DISPLAY ONLY 

JUN LDYIM $00 

$2C (BIT) JUMP NEXT TWO BYTES 
EDITOR LDYIM $07 

$2C 

ASSEM LDYIM $0E 

JSR MESSY 

JMP CRLF AND RETURN 



32 



E^El 5 □ El KENMER 



******************** RECCHA ******************** 

RECCHA > RECEIVES 1 ASCII CHARACTER FROM ELEKTERMINAL 

> SAVES X REGISTER: DOESN'T USE Y 

> RETURNS WITH ASCII CHARACTER IN ACCUMULATOR 
* MODIFIED: 

INCLUDES ' GEN. INP. WITH ECHO TO OUT. DEVICES' 
SETS N AND V FLAGS ACCORDING TO ACC (NOT TO X) 
AND DOESN'T MAKE BIT 7 ZERO: RECEIVE 256 CHAR! 



0110 




03 


13 


DELHBT 


* 


$1303 




0120. 




12 


13 


DELBIT 


* 


$1312 




0130 




8A 


16 


NPRCHA 


* 


$168A 




0130 




41 


1A 


DUPLEX 


* 


$1A41 




0150 




61 


1A 


TEMPB 


* 


$1A61 




0160 




62 


1A 


CHA 


* 


$1A62 




0170! 




80 


1A 


PAD 


* 


$1A80 




0180 
















0190 


12AE 






RECCHA 


ORG 


$12AE 




0200 
















0210 


12AE 


2C 80 


1A 


RECCHA 


BIT 


PAD 


WAIT FOR START BIT 


0220 


12B1 


30 FB 






BMI 


RECCHA 




0230 
















0240 


12B3 


8E 61 


1A 




STX 


TEMPB 


SAVE INDEX X 


0250 




A2 08 








$08 


BIT COUNTER IS 8 


0260 




20 03 13 




JSR 


DELHBT DELAY HALF BIT TIME 


0270 












0280 


12BB 20 12 


13 


RECA 


JSR 


DELBIT DELAY ONE BIT TIME 



12BE 2C 80 1A 

12C1 10 02 

12C3 38 

12C4 24 

12C5 18 

12C6 6E 62 1A 

12C9 CA 

12CA DO EF 

12CC 20 12 13 

12CF AD 62 1A 



12D2 
12D3 



1A 



48 

2C 41 
12D6 50 03 
12D8 20 8A 16 
12DB AE 61 
12DE 68 
12DF 60 



12E0 18 



RECD/B 
BIT-1- 
BIT-O- 



RECC 
INALL 



1A INALLX 



BIT 
BPL 
SEC 

CLC 
ROR 
DEX 
BNE 

JSR 
LDA 

PHA 
BIT 
BVC 
JSR 
LDX 
PLA 
RTS 



PAD ONE /ZERO 

BIT-O- 
BIT IS ' 1' 

$24 (BIT) JUMP NEXT BYTE 

BIT IS '0' 

CHA ROTATE CARRY INTO CHARACTER 

SET UP FOR NEXT BIT 

RECA ALL BITS READ? 

DELBIT WAIT FOR STOP BIT TIME: V=0. C=0 
CHA GET THE CHARACTER JUST RECEIVED 

SAVE IT 

DUPLEX 00 NO ECHO / FF ECHO 
INALLX (V=0) 

NPRCHA (V=0) ECHO THE CHARACTER TO OUTPUT DEVICES 
TEMPB RESTORE INDEX X 

SET N AND Z FLAGS ACCORDING TO CHARACTER RECEIVED 

DON'T MASK BIT 7: V=0 C=0 



COMTIM CLC 
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PRCHA THE JUNIOR PROMOTING CY (W&J) 07/04/84 PAGE 01- 



0010 
0020 
0030 



150 
360 



0090 



0110 

0120 

0130 

0140 

0150 

0160 

0170 

0180 

0190 

0200 

0210 

0220 

0230 

0240 

0250 

0260 

0270 

0280 

0290 

0300 

0310 

0320 

0330 

0340 

0350 

0360 

0370 

0380 

0390 

0400 

0410 

0420 

0430 

0440 

0450 

0460 

0470 

0480 

3490 

0500 

0510 

0520 

0530 

0540 

0550 

0560 

0570 

0580 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0680 

0690 

0700 

0710 

0720 

0730 

0740 

0750 

0760 

0770 

0780 



******************* 



PRCHA 



###*#**##***#####*###*#*# 



12 13 

CF 16 

58 1A 

59 1A 

60 1A 
62 1A 
80 1A 
82 1A 



1334 



1334 8E 60 1A 
1337 8D 62 1A 



133A 48 

1 336 18 

133C 20 61 13 

133F A2 08 



1341 4E 
1344 20 



62 
61 



1347 CA 

1348 D0 F7 



1A 

13 



134A AE 59 1A 

134D 38 

134E 20 61 13 

1351 CA 

1352 D0 F9 

1354 2C 80 1A 

1357 30 03 

1359 4C CF 16 
135C At 60 1A 
135F 68 

1360 60 

1361 AD 82 1A 
1364 90 03 
1366 09 01 

1368 2C 

1369 29 FE 
136B 8D 82 1A 
136E 4C 12 13 

1371 FF 

1372 FF 

1373 FF 

1374 FF 

1375 FF 

1376 FF 

1377 FF 

1378 FF 

1379 FF 
137A FF 
137B FF 
137C FF 
137D FF 
137E FF 
137F FF 

1380 FF 

1381 FF 

1382 FF 

1383 FF 

1384 FF 

1385 FF 

1386 FF 



> T R A N S M I T AN ASCII CHARACTER STORED IN ACCUMULATOR 

TO THE ELEKTERM I NAL 
>ADAPTED FROM THE ORIGINAL AND MODIFIED TO 8 BITS 

(ALSO MODIFIED IS THE BIT FORMAT OF THE DART) 
>SAVE INDEX X: INDEX Y NOT USED 



DELBIT * 

BRKTST * 

SERFLG * 

STP6IT * 

TEMPA # 

CHA * 

PAD * 

PBD * 



$1312 
I16CF 
I1A58 
I1A59 
I1A60 
I1A62 
I1A80 
$1A82 



PRCHA ORG $1334 



STX 
STA 



TEMPA 
CHA 



PRCHA* 

PR A 
PRB 

PRD 

BREAK? 
END 

ONEBIT 
BIT-1- 
BIT-0- 



PHA 
CLC 
JSR 
LDXIM 

LSR 
JSR 

DEX 
BNE 

LDX 
SEC 
JSR 
DEX 
BNE 

BIT 
BMI 
JMP 

1 

RTS 



ONEBIT 
$08 

CHA 

ONEBIT 



PRA 

STPBIT 

ONEBIT 

PRD 

PAD 
END 

BRKTST 
TEMPA 



87 13 INPAR 



LDA 


PBD 


BCC 


BIT-0- 


OR A I M 


$01 




$2C 


AND I M 


$FE 


STA 


PBD 


JMP 


DELBIT 


» 


$FF 


- 


$FF 


- 


$FF 


- 


$FF 


- 


$FF 


- 


$FF 


- 


$FF 


= 


$FF 


a 


$FF 


= 


$FF 


= 


IFF 


s 


IFF 


- 


IFF 




IFF 




IFF 


= 


IFF 


= 


IFF 


= 


IFF 




IFF 


= 


IFF 


= 


IFF 


= 


IFF 




11387 



***** AT RTS #*#*** 

* =X * 

* =Y * 

* Acc=FF * 

* V = 0 * 

* C = 0 * 

* Z = ? * 
******* N=?***#**»* 



STORE* CHARACTER IN 'SHIFT REGISTER- 



SAVE CHARACTER. . . 
SET FOR -0- 

TRANSMIT START BIT (LOGICAL 0) 
SET UP FOR 8 DATA BITS 

SEND CHARACTER BIT BY BIT (SHIFT CHARACTER) 
IF C=0, BIT-0-: IF C=l. BIT-i-s 

SET UP FOR NEXT BIT 
ALL BITS TRANSMITTED'' 

AMOUNT OF STOP BITS 
SET FOR -1- 

SEND STOP BIT (LOGICAL 1): Acc = FF: C A R R Y = 0 
ALL STOP BITS? 

TEST FOR BREAK ( P AD = X 000 . 0000 ) ; OVERFLOWS 

N^=0 IF BREAK KEY NV Z 

(NPRCHA) 

RESTORE INDEX X 

RESTORE CHARACTER 

C AND V FLAGS ARE ALWAYS CLEARED 



SEND A LOGICAL 1 

(BIT) JUMP NEXT TWO BYTES 

SEND A LOGICAL 0 

DELAY 1 BIT TIME (AND RTS); Acc=FF: CARRY=0 
(22) BYTES LEFT FOR PATCH OR USER PROGRAM 
BUT 10 TIMES A JSR/RTS (ONEBIT) TIME MORE... 
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THE JUNIOR PROMOTING CY (H&J) 180284 PAGE 01 



##*###*###*##*#*#*#* ASHETT #*#**#####*##***##****** 

CONVERT AN ASCII CHARACTER INTO AN HEX DATA NIBBLE. 

RETURN WITH CONVERTED HEX NUMBER IN ACCUMULATOR 
WITH CARRY CLEAR IF VALID HEX NUMBER 
WITH CARRY SET IF NOT VALID HEX NUMBER 
WITHOUT CHANGING Y OR X REGISTERS 



0100 


141E 








ORG 


$141E 




0110: 














0120: 141E 


C9 


30 


ASHETT 


CMPIM 


$30 


IGNORE 00 -> 2f- 


0130 


1420 


30 0C 




BMI 


NOTVAT 




0140 


1422 


C9 


3A 




CMPIM 


$3A 




0150 


1424 


30 


0A 




BMI 


VALIT 




0160 


1426 


C9 


41 




CMPIM 


$41 


IGNORE 3A -> 40 


0170 


1428 


30 


04 




BMI 


NOTVAT 


0180 


142A 


C9 


47 




CMPIM 


$47 


IGNORE 47 -) 7F (FF) 


0190 


142C 


30 


02 




BMI 


VALIT 


0200 
















0210 


142E 


38 




NOTVAT 


SEC 






0220 


142F 


60 






RTS 




ERROR EXIT WITH CARRY SET 


0230 
0240 


i 430 


C9 


40 


VALIT 


CMPIM 


$40 


ASCII * HEX CONVERSION 


0250 


1432 


30 


03 




BMI 


VALT 


0260 


1434 


18 






CLC 






0270 


1435 


69 


09 




ADC I M 


$09 




0280 
















0290 


1437 


29 


0F 


VALT 


AND I M 


$0F 




0300 


1439 


60 






RTS 




NORMAL EXIT WITH CARRY CLEAR 


0310 
















0320 


143A 


FF 






= 


$FF 


ONE BYTE LEFT 



*** ROUTINES WHERE ASHETT IS INCLUDED AND WHERE THE 

FLAGS STATUSES WILL BE DIFFERENT: 
******************************************************* 

*TAPE MONITOR 

RDBYT $0BFE: B0 INSTEAD OF 30 AFTER ASCHEX (ASHETT) 
$0C11: B0 IDEM 

RETURN WITH CARRY SET IF NOT VALID HEX CHARACTER 
*PRINTER MONITOR 

HEXNUM $1272: B0 INSTEAD OF 30 AFTER ASHETT 
*PRINTER MONITOR EDITOR 



SKIP 

SEARCH 

INPUT 

BYTIN 



READ I N 



$1580: 
$159B: 
$1650: 
$1655: 
$16B4: 
$16C2: 
$16C6: 
RETURN 
$16CC: 
$16E1 : 
$16EF: 
$16F3: 
$16F4: 
RETURN 



B0 



B0 
B0 
B0 



INSTEAD OF 30 AFTER READIN 
IDEM 

INSTEAD OF 30 AFTER BYT 
INSTEAD OF 30 AFTER READ 
INSTEAD OF 30 AFTER ASHETT 
B0 IDEM 

60 RTS WITH C. CLEAR INSTEAD OF LDXIM $00 

WITH CARRY SET IF ERROR EXIT 

B0 INSTEAD OF 30 AFTER BYTIN 

B0 IDEM 

B0 IDEM 

18 CLC 

60 RTS WITH C. CLEAR INSTEAD OF LDXIM $00 
WITH CARRY SET IF ERROR EXIT 
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PRNTER THE JUNIOR PROMOTING CY (H&J) 08/04/84 PAGE 01 



0010: 
0020: 
0030: 
0040: 
3050 : 
0060: 
0070: 
0080: 
0090: 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 
0180: 
0190: 
0200: 
0210: 
0220: 
3230: 
3240: 
0250: 
026E: 
0270: 
0280: 
0290: 
3300: 
0310: 
0320: 
0330: 
0 340: 
0350: 
0360: 
03 70: 
0380: 
0390; 



0120: 
0430: 
0440: 
0450: 
0460: 
0470: 
0480: 
0490: 



0510: 
0520: 
0530: 
0540: 
0550: 
0560: 
0570: 
0580: 
0590: 
0600: 
0610: 
0620: 
0630: 
0640: 
0650: 
0660: 
0670: 
0680: 
0690: 



1559 
1559 
155C 

155E 
1561 

1563 
1566 



1.56 9 
156C 
1.56E 



3D 



1573 60 



1574 
1577 
1579 
157B 
157D 



»#*#****##*#**###*#* PR ( I ) NTER #*##**###***#*####*#*♦ 

Routine to output an ASCII character to an EPSON FX-80 
usina the Centronics interface, throuqh 8 bit, parallel 
Includes messages about the printer status (power off, 
off line, paper end and error). 

The BUSY line is activated durina data entry, printing, 
OFF LINE and ERROR (active low). 

The ERROR line is active during PAPER END. OFF LINE or 
printer ERROR. 

The VIA 6522 is programmed this wav: 







IRA 0 ■- 


■ PAPER 


END 


active hiqh - C FLAG (AFTER ' LSR ) 






IRA : 












IRA 6 - 


ERROR 


active low - V FLAG (AFTER BIT) 






IRA 7 - 


■ BUSY 


(READY) 


- N FLAG 






ORB 


• DATA 


OUT 








CB2 


■ DATA 


OUT STROBE handshake 


F4 


00 


YREG 


* 


$00F4 


*#**#***#****###** 


FA 


00 


COUNT0 


• 


$00FA 


4 * 


FB 


00 


C0UNT1 


* 


$00FB 


* AT RTS * 


CF 


1 6 


BRKTST 


* 


$16CF 


# =Acc * 


C0 


1 7 


MESAGE 


* 


$17C0 


* =X * 


00 


1 8 


ORB 


* 


$1800 


* a Y * 


01 


18 


IRA 


* 


* 1 80 1 


* V = 0 * 


52 


1A 


AH0LD2 


# 


I1A52 


* C = 0 * 


56 


1A 


CENFLG 


* 


$1A56 


* * 


80 


1 A 


PAD 


* 


$1AS0 


****************** 






SUBROUTINES 






F8 


16 


DELAY1 


* 


$16F8 


DELAY AMOUNTS N IN ACCUMULATOR 


5F 


1 0 


LAB J UN 


* 


$105F 


PM "JUNIOR" 


E8 


11 


CRLF 


* 


f 11E8 




8A 


16 


NPRCHA 


* 


$168A 








PRNTER 


ORG 


$1559 




52 


1A 




ST A 


AH0LD2 


SAVE CHARACTER 


F4 






STY 


YREG 


SAVE Y REGISTER 


01 


IB 


BUSY? 


BIT 


IRA 


N= IRA BIT 7; V=IRA BIT 6 


11 






BMI 


OFPOWR 


N=l IF POWER OFF OR BUSY 












N=0 IF THE PRINTER IS READY 


52 


1A 


PRINT 


LDA 


AH0LD2 


GET CHARACTER 


00 


18 




ST A 


ORB 


SEND IT TO PRINTER 






ACKNOWLEDGE NOT NECESSARY BUT POSSIBLE 


80 


1A 


BREAK? 


BIT 


PAD 


TEST FOR BREAK KEY BEFORE RETURN 


03 






BMI 


RETURN 


N=0 IF BREAK KEY DEPRESSED: IF NOT. N 


CF 


16 


STOP 


JMP 


BRKTST 


OF NPRCHA SUBROUTINE 


F4 




RETURN 


LDY 


YREG 


RESTORE Y REGISTER. Acc HAS STILL THE 








RTS 




RETURN WITH V=0 AND C=0 AND ACC WITH 


131 


18 


OFPOWR 


LDA 


IRA 


GET PORT 


FF 






CMPIM 


f FF 


ARE ALL BITS SET? (HIGH IMPEDANCE) 


13 






BNE 


ERROR? 


IRA=FF IF THE PRINTER IS OFF POWER 


00 






LDY I M 


$00 




C2 


15 




JSR 


MESSY ' 


PRINT "POWER OFF" 



36 



DEE 



B 5 D 



KENNER 



PRNTER THE JUNIOR PROMOTING CY (W&J) 08/04/84 PAGE 02 



0700: 

0710: 

0720: 

0730: 

0740: 

0750: 

0760: 

0770: 

0780: 

0790: 

0800: 

0810: 

0820: 

0830: 

0840: 

0850: 

0860: 

0870: 

0880: 

0890: 

0900: 

0910: 

0920: 

0930: 

0940: 

0950: 

0960: 

0970: 

0980: 

0990: 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260: 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360: 

1370: 

1380: 



1580 AD 


01 


18 


WAIT-1 


LDA 


IRA 


WAIT FOR SWITCHING ON THE PRINTER 


1583 C9 


FF 






CMPIM 


$FF 




1585 F0 


F9 






BEQ 


WAIT-1 




1587 A9 


07 






LDAIM 


$07 


RETURN AFTER DELAY #7 (PRINTER POWER / SET 


1589 20 


F8 


16 


OK-1 


JSR 


DELAY 1 


158C 90 


D0 






BCC 


BUSY? 




158E 70 


CE 




ERROR? 


BVS 


BUSY? 


V=l IF NOT ERROR 


1590 4A 








LSRA 




C= IRA BIT0 


1591 90 


0F 






BCC 


OFFLIN 


C=0 IF NOT PAPER END 


1593 A0 


0A 




PAPEND 


LDYIM 


$0A 


PRINT " INSERT MORE PAPER " 


1595 20 


C2 


15 




JSR 


MESSY' 


1598 AD 


01 


18 


WAIT-2 


LDA 


IRA 


WAIT FOR MORE PAPER ' 


159B 4A 








LSRA 






159C B0 


FA 






BCS 


WAIT-2 


C=l IF STILL PAPER END 


159E A9 


03 




OK-2 


LDAIM 


$03 


RETURN AFTER DELAY #3 (SET UP AFTER PAPER 


15A0 D0 E7 






BNE 


OK-1 


RELOAD) 


i «J n £ n II 


i r 




OFFLIN 


LDYIM 


$1C 




15A4 20 


C2 


15 




JSR 


MESSY ' 


PRINT "PRESS ON LINE" 


15A7 85 


FA 






STA 


COUNT0 


SET COUNT TO WAIT TIME 




FR 
r o 






STA 


COUNT1 




15AB 2C 


01 


18 


WAIT-3 


BIT 


IRA 


STILL ERROR? 


15AE 70 


EE 






BVS 


OK-2 


V = 0 MEANS ERROR V=l MEANS NOT ERROR 


15B0 88 








DEY 






15B1 D0 


F8 






BNE 


WAIT-3 




L w O W w U 


FA 

r n 






DEC 


COUNT0 




15B5 D0 


F4 






BNE 


WAIT-3 


. . . WAIT FOR SWITCHING ON LINE 


15B7 C6 


FB 






DEC 


COUNT1 




15B9 D0 


F0 






BNE 


WAIT-3 
















IF AFTER ALL THAT TIME 














THERE IS NO ANSWER... 


15BB A0 


2A 




PRTERR 


LDYIM 


$2A 


PRINT "PRINTER ERROR" 


15BD 20 


C2 


15 




JSR 


MESSY ' 


15C0 50 


AC 






BVC 


STOP 


(GO TO BREAK POINT) 


15C2 AD 


56 


1 A 


MESSY ' 


LDA 


CENFLG 


SAVE CENTRONICS FLAG STATUS 


15C5 48 








PHA 






15C6 A9 


00 






LDAIM 


$00 


nr. r kir kA r- r> n j\ n r" nkii w nxi ll T ncn l 

PRINT MESSAGE ONLY ON VIDEO! 


15C8 8D 


56 


1A 




STA 


CENFLG 


15CB 20 


E8 


1 i 




JSR 


CRLF 


PRINT A CARRIAGE RETURN AND A LINE FEED 


15CE B9 


C0 


17 


PRTMES 


LDAAY 


MESAGE 




15D1 C9 


03 






CMPIM 


$03 


ETX 


15D3 F0 


06 






BEQ 


PRTEND 




15D5 20 


8A 


16 




JSR 


NPRCHA 




15D8 C8 








INY 






15D9 D0 


F3 






BNE 


PRTMES 




15DB 68 






PRTEND 


PLA 






15DC 8D 


56 


1A 




STA 


CENFLG 


RESTORE CENTRONICS FLAG STATUS 


15DF 60 








RTS 












MESAGE 


I17C0 







504F574552204F464603494E53455254 
204D4F524520504 15045520350524553 
53204F4E204C494E45035052494E5445 
52204552524F5203 



POWER OFF. INSERT 
MORE PAPER. PRES 
S ON LINE. PRINTE 
R ERROR. 
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************** NEW PRCHA ROUTINE ♦##*###*###*###*#### 



0030 






FC 


00 


RAMPTR 


* 


*00FC 




0040 






80 


0C 


VIDEO 


* 


I0C80 




0050 






3A 


13 


PRCHA* 


* 


$ 133A 




0060 






59 


15 


CENOUT 


* 


$1559 




0070 






29 


1A 


P2PTR 


* 


$1A29 




0080 






2B 


1A 


YHOLD 


* 


1 1A2B 




0090 






2C 


1A 


XHOLD 


* 


I1A2C 




KJ I (flu 






u 


l H 


audi n 

H n U L u 








0110 






56 


1A 


CENFL6 


* 


$ 1A56 




0120 






58 


1A 


PRIFL6 


* 


*1A58 




0130 






60 


1A 


TEMPA 


* 


$1A60 




IB 1 t la 








1 n 






* t bkO 

♦ IHDi 




0150 






7C 


1A 


BRKT 


* 


$1A7C 




0160 






80 


1A 


PAD 


♦ 


*1A80 




0161 


















0162 


















0170 


















0180 


168A 








NPRCHA 


ORG 


$1 68A 




0190 


168A 


BE 


60 


1A 




STX 


TEMPA 


SAVE X REGISTER (FOR PRCHA IF CALLED) 


0200 


168D 


8D 


62 


1A 




STA 


CHA 


SAVE CHARACTER (FOR PRCHA) 


0210 
0220 


1690 


8D 


2D 


1A 


GUTALL 


STA 


AHOLD 


SAVE REGISTERS 


0230 


1693 


8E 


2C 


1A 




STX 


XHOLD 




0240 

PITS PI 


1696 


8C 


2B 


1A 




STY 


YHOLD 




0260 


1699 


A 4 


FC 






LDY 


RAMPTR 


SWAP SCREEN POINTER (OS DOS) 


0270 


169B 


A6 


FD 






LDX 


RAMPTR 


+ 01 


0280 


169D 


8C 


29 


1A 




STY 


PZPTR 




0290 


16A0 


8E 


2A 


1A 




STX 


PZPTR 


+ 01 


0300 


















0310 


16A3 


20 


80 


0C 




JSR 


VIDEO 


OUTPUT TO SCREEN 


0320 


16A6 


2C 


58 


1A 




BIT 


PRIFLG 


IS THE SERIAL PORT SELECTED? 


0330 


16A9 


50 


03 






BVC 


OUTALA 




PI 7 H. Pi 


1 LAD 

lOHD 


901 


on 


i 1 




1 QP 


p p r u a * 
r n L n H * 


OUTPUT TUP rHiBfiTTFR PI M TPP QPPTttl P PI ft T 
UUIrUI 1 nt LnHnHLIcn UN Int 3tH 1 ML runl 


0350 


16AE 


2C 


56 


1A 


OUTALA 


BIT 


CENFLG 


IS THE CENTRONICS PORT SELECTED 


0360 


16B1 


50 


03 






BVC 


OUTALB 




0370 
0380 


16B3 


20 


59 


15 




JSR 


CENOUT 


OUTPUT THE CHARACTER TO CENTRONICS 


0390 


16B6 


AC 


29 


1A 


OU T ALB 


LDY 


PZPTR 


SWAP PAGE ZERO BYTES 


04B0 


16B9 


AE 


2A 


1A 




LDX 


PZPTR 


+ 01 


0410 


16BC 


84 


FC 






STY 


RAMPTR 




0420 


16BE 


86 


FD 






STX 


RAMPTR 


+ 01 


0430 


















0440 


16C0 


AE 


2C 


1 A 




LDX 


XHOLD 


RESTORE THE REGISTERS 


0450 


16C3 


AC 


2B 


1A 




LDY 


YHOLD 




0460 


16C6 


AD 


2D 


1A 




LDA 


AHOLD 




0470 
0480 


16C9 


2C 


80 


1 A 




BIT 


PAD 




0490 


16CC 


10 


01 






BPL 


BRKTST 




0500 


16CE 


60 








RTS 




V=0, C=0, N=l, Z DEPENDS ON CHARACTER PRINTED 


0510 


















0520 


















0530 










*** EXIT FOR 


BREAK KEY (NPRCHA. PRCHA AND CENOUT) ***** 


0540 


















0550 


















0560 


16CF 


2C 


80 


1A 


BRKTST 


BIT 


PAD 




0570 


16D2 


10 


FB 






BPL 


BRKTST 


WAIT UNTIL KEY IS REALEASED 


0580 


16D4 


A2 


FF 






LDX I M 


*FF 




0590 


• 16D6 


9A 








TXS 




RESET THE STACK POINTER 


0600: 16D7 


6C 7C 


1A 




JMI 


BRKT 


JUMP TO AN USER SELECTABLE VECTOR (1A7C.1A7D) 



DeFS 5 □ KEMNER 

RECBYT THE JUNIOR PROMOTING CY (M&J) 15/04/84 PAGE 01 



0010: 
0020: 
0030: 
0040: 
0050: 
0060: 
0070: 
0080: 
0090: 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
0170: 



0190: 
0200: 
0213: 

i22.0s 

£230: 
0240: 
0250: 
0260: 



06A0 



0280: 
0290: 
0300: 
0310: 
0320: 
0330: 
0340: 
0350: 
0360: 
0370: 
0380: 
0390: 
0400: 
0410: 
0420: 
0430: 



0450: 
0460: 
0470: 
0480: 
0490: 
0500: 
0510: 
0520: 
0530: 
0540: 
0550: 
0560: 
0570: 
0580: 



06AE 24 A4 
06B0 70 05 
06B2 20 F0 11 
0685 C6 A4 
06B7 20 FE 11 
06BA C6 M 
06EC 50 Eo 



06BE 24 A4 

06C0 50 08 

06C2 0A 
06C3 0A 
06C4 0A 
06C5 0A 
06C6 85 FE 
06C8 70 DA 

06CA 05 FE 

06CC C5 A6 
06CE F0 04 
06D0 90 02 
06D2 B0 DE 



#**#***#**#**»*##*#*## RECBYT ********************** 

Receive a bvte is a subroutine to oet a byte from the 
El ektermi nil . eaual or less than a value set at maxval 
-it will not return until a perfect input be executed 
-and a not hexadecimal (0->F) character, or a bvte Grea- 
ter than the preset value will cause the printino of 
backspace ( s ! and a restart, 
ftdauted from BYTIN (I16AE-PME) 

##*#*#*##**#####*#*#*#*#*#* *#*##** #####**#*#* ##*#*##** 



A4 


00 


RECVED 




f 00A4 


FLAB: 1111.1110 none character: V=l 


A6 


00 


MAXVAL 


* 


$00A6 


lilt. Uil one V=l 


FE 


00 


NIBBLE 


* 


*00FE 


0000.0000 two V = 0 


F0 


1 1 


PRBS 




1 1 1F0 


Print a backspace 


AE 


12 


RECCHA 


* 


* 1 2 A E 


Monitor input routine 


IE 


14 


ASHE I T 


* 


11411 


ASCII -> HEX A (modified! 






RECBYT 


ORG 


$06A0 




FE 






LBAlfl 




Set +iaa tor nibble count 


A 4 






S T A 


RECVED 




A4 




RECB 


INC 


RECVED 




AE 


12 




JSR 


RECCHA 


Receive one character 


IE 


14 




JSR 


ASHETT 


Convert; it into a Hex nibble 


10 






BCC 


OK 





INPUT ERROR (carrv set from ASHETT! 

BIT RECVED 

BVE' ONE 

TWO JSR PRBS V = 0 Two character received, two BS to print 

DEC RECVED 

ONE JSR PRSS V=l One character received, one BS to print 

DEC RECVED 

BVC R t. t B Branch alwavs 
NIBBLE RECEIVED 
Ok 



BIT 
BVC 



FIRST ASLA 
ASLA 
ASLA 
ASLA 
STA 
BVS 



RECVED First or second nibble received? 
SECOND 

V = 1 First £ h i 0 he r J data nibble 



NIBBLE 

RECB Branch alwavs 



SECOND ORA NIBBLE V=0 Second (lower) data nibble 



06D4 60 



CMP 
BEQ 
BCC 
BCS 

DONE RTS 



MAX VAL Bvte equal or less than 

DONE receive onlv equal or less than max. value 
DONE 

TWO .... areater than max. value f repeat 

v= 0 39 



KENNER 



SORTNG 



THE JUNIOR PROMOTING CY CN&J) 15/04/84 PAGE 01 



0010: 
002 
003 
0040: 
0050: 
0060: 
0070: 
0030: 
0090: 
0100: 
0110: 
0120: 
0130: 
0140: 
0150: 
0160: 
01 70: 
0188: 
01 91 
0200: 
0210: 
0220: 
0230: 
3240: 
0250: 
2260: 
0270: 
0280; 
0290: 
03!i 
03; 
0320: 
0330: 
03*0: 
0350: 



E000 



SORTNG ORG $£000 

S0RT(I)NG is a subroutine to arranae in alphabetic or 
numeric order with increasinq values, -formatted files 
of no more than 256 bytes each, and with a variable 
amount of strinqs. Each individual strinq beqins in the 
same relative address in each file: the strinqs can be 
numbers, birthdav dates, names... or simple bits or 
bvtes with some meaninq. 

The strinas chosen to one particular sortinq (names, 
numbers, dates...), are defined bv its relative start 
and end addresses in the file (YSTART. YSTOP). 
The "last" file is the ETX ($03) character for alphabe- 
tic strinas. or $FE for numeric strinqs. 
The distinction between alpha and numeric is only nee- 
ded if extra characteres are included ie. c . »...). 
The sortinq process is done bv coinoanna the carrespon- 
dino bvtes in pairs, and exchanqina the files of the 
pairs out of order. Adapted from "8-Bit Sort". 6502 
Assembly Lanouaqe F'roqramminq bv L.A.Leventhal 
* The p r o q r a m is slow, it takes about 5 minutes to sort 
600 Files of 64 bvtes. due to the repeated exchanae mo- 
vements of the tiles on each pass... 

FXfftPU; 



Q 8E6AD C YSTART YSTOP 

02 3 04 5 §0 — 10-20-30-135 
01 A 12 M Nei son . . . 
08 C 22 F Maroari da. . . 

H Art or Jose. . . 
nase: 



$0 1 
1234 
2569 
0002 



12 B 
Q EN D A P 



D 

36 37 38 
72. 04.31 
66. 12. 01 
83.06.22 



FIELD 0 
B 3C D L F 
A 0567 S N 
R 5310 N N 
A 24 83 N S 



- 



— — 



In this example the tiles are $40 bvtes 
lust scrtma them bv the strino "names" 



i o n q and one 
{$06136; . 



1 5 



0302: 
E390: 
0400: 
0 410: 
0420: 
0430: 
0440: 
0450: 
0460 : 
0470: 
0480: 
0490: 
0500: 
05J 0: 

Si 
0530: 
0540 
3550: 
0560; 
0570: 
0530: 
0590: 
0600; 
0610: 
Ut 
0630: 
0640: 
0650: 
0660: 
06 70: 
0680: 
0690: 
0700: 
0 710: 
07: 
0730: 
0740: 
0750: 



£000 
£003 
E004 
E005 
E006 
£00 7 
£008 
E009 
E00A 



A 6 


00 


HAXVftL 


* 


$ 0 0 A s 


D4 


00 


ASCREG 




$00D4 


n c 
U ^ 


00 


FIELD 




$00D5 


07 


00 


YSTART 




$0007 


08 


00 


YSTOP 


* 


$0008 


D9 


00 


SRFLAB 




$0009 


DA 


00 


ANFLAG 




$00DA 


£4 


00 


END SDL 




$00E4 


E5 


00 


ENDADH 




$00E5 


E6 


00 


CURADL 


» 


$00E6 


E7 


00 


C U R A D H 




$00E7 


E3 


03 


CENDL 


* 


$00E8 


E9 


00 


C.ENDH 


* 


$00E9 


Ffl 


00 


KQVADL 


* 


$00F0 


Fl 


00 


M 0 V A D H 


* 


*00F1 


63 


1A 


PARA 


# 


$1A63 


A0 


06 


RECBYT 


* 


$06A0 


05 


06 


A s C S 


* 


$0605 


A 5 


37 


PAR P NT 


* 


$0 7A5 


B0 


07 


xzz + y 


* 


$07B0 


B2 


0 7 


XZZ+FD * 


$07B2 


75 


0C 


X PARA V 


* 


$0075 


AE 


12 


RECCHA 




$12AE 


8A 


16 


NPRCHA 


# 


$168A 


69 


F6 


1 MI TAD 




$F669 


39 


F7 


MESSA 


* 


$F739 


F2 


FA 


PR I MTV 


* 


$FAF 2 


F2 


FA 




J3R 


PRINTV 



3D 
0A 
0D 
0A 
41 
40 
50 



Bvtes of each (formatted,' file 

Benin of strinq in file to sort 

End Df strino in file to sort 

Sortinq f 1 a q 

Alphanumeric flap 

Address of last file J ETX J 

Address of one pairs first file 

Address of one pair's second file 

Address of buffer file 

Address of first file 



$0D 
$0A 
$00 
$0A 
A 
L 

'P 
■ H 



or 
of 



less than ma x v a 1 
masked characters 



Receive one bvte equal 
DATA: Real ASCII value 
(1A00) ,Y •* (Point) ,X 
Add Y to an address in 
Add the value l n Field 
(Point) .X 1 (Point) . Y 
Monitor input routine 
tor output routine 
parameters PARA. 
"DONE" 

Print characters that follow until ETX 



Moi 
Input 
Print 



paqe 00 pointed bv X 



P ARB 



Pri nt 

OR 

LF 

OR 

LF 



"ALPHANUMERIC SORTING" 



40 



0760: 
0770: 
0780: 
0790: 
0800: 
0810: 
0820: 
0830: 
0840: 
0850: 
0860: 
0870: 



0890: 

0900: 

0910: 

0920: 

0930: 

0940: 

0950: 

0960: 

0970: 

0980: 

0990: 

1000: 

1010: 

1020: 

1030: 

1040: 

1050: 

1060: 

1070: 

1080: 

1090: 

1 100: 

1110: 

1 120: 

1130: 

1140: 

1 150: 

1 160: 

1 170: 

1 130: 

1190: 

1200: 

1210: 

1 220: 

1230: 

1 240: 

1250: 

1 260: 

1270: 

1 280: 

1290: 

13120: 

1310: 

1 320: 

1330: 

1 340: 

1350: 

1360: 

1370: 

1380: 

1390: 

1 400: 

1410: 

1 420: 

1430: 

1440: 

1450: 

1460: 

1470: 

1480: 

1490: 

1500: 



E00B 
E00C 
E00D 
E00E 
E00F 
E010 
E01 1 
E012 
E013 
E014 
E015 
E016 
6017 
E018 
E019 
E01A 
E018 
E01L 
E01D 
E01E 
E01F 



41 

4E 

55 

4D 

45 

52 

49 

43 

20 

53 

4F 

52 

54 

49 

4E 

47 

01 

0A 

03 



= 
- 

= 
= 



A6 



E021 20 69 F6 

E024 81 E4 

E026 C9 03 

E028 F0 28 

E02A C9 FE 

E02C F0 24 



SGRT 
ETX 



DEV 
STY 

JSR 

LDAIY 

CMPIM 

&ED 

CMPIM 

BEQ 



" A 
N 

'U 

■a 

E 

' R 
' I 

;c 
•s 

'0 

R 
'T 
' 1 
' N 

G 
$0D 
$0A 
$03 



CR 
LF 

ETX 
^ Y = F F 

MAXVAL Set Max. value 



INI TAD PARA=BESAD = CURAD , P6RB*£NfiAB*CEIt'& 
ENDADL Set begin anaf end addresses 
$03 ##**#,##*##*##*##****######* 
FIELD? If End of Text at ENDAD. it's OK. 
$FE 

FIELD? It 'End of number at ENDAD. it's OK to 



E02E 


20 


F2 


FA 


ENDAD? 


JSR 


PR I NT V 


Print "ENDAD 1 ? (03. FE; : " 


E031 


0D 








St 


*0D 


CR 


E032 


0A 








= 


$0A 


LF 


E033 


45 










E 




E034 


4E 










N 




E035 


44 










' D 




E036 


41 








=: 


' A 




E03 7 


44 








= 


' D 




EB33 


21 










• ! 




E039 


3F 










' ? 




E03A 


20 








= 






E03B 


28 








B 


' ( 




E03C 


30 








R 


"0 

'3 




E03D 














E03E 


2C 














E03F 


46 








- 


F 




E040 


45 








- 


E 




E041 


29 








= 


' 1 




E042 


3A 








■ 


■ 




E043 


20 














E044 


03 










$03 


ETX : Y ca;nes =00 


E045 


20 


A0 


06 




JSR 


RECBYT 


Receive b v t e (any value; 


E048 


85 


E5 






ST A 


END ADH 


Set the address of the last tile (ETX) 


E04A 


20 


A0 


06 




JSR 


RECBYT 


E04D 


85 


E4 




STA 


ENDADL 


*#*♦**#**********#*****#************** 


E04F 


C8 








I NY' 




->Y = 00 


E050 


F0 


D2 






BEQ 


ETX 


Check aoain for ETX at ENDAD 


E052 


20 


F2 


FA 


FIELD? 


JSR 


PRINT 1 .' 


Print "FIELD?: " 


E055 


0D 










$0D 


CR 


E056 


0A 










$0A 


LF 


E057 


46 








i 


'F 




E058 


49 








= 


' I 




E059 


45 








= 


'E 




E05A 


4C 








= 


L 




E05B 


44 








= 


'D 




E05C 


3F 










' 0 




E05D 


3 A 








= 


': 




E05E 


20 










$03 




E05F 


03 










ETX 


E060 20 


A 0 
D5 


06 




k 




Set the length oi the formatted files 


E063 


85 








************************************* 


E065 


20 


F2 


FA 


STRSTP 


JSR 


PRINTV 


Print "YSTART?,YSTOP?: " 


E068 0D 








= 


$0D 


CR 


E069 


0A 








= 


$0A 


LF 



1510 : 


E06A 


59 






= 


1520: 


E06B 


53 








1530: 


E06F 


54 








1540: 


E06D 


41 






= 


1 550: 


E06E 


c n 






a 


1 56 0: 


E06F 


54 






B 


157 0: 


E07 0 


3F 






= 


1 580: 


E071 


2C 






= 


1590: 


£072 


59 






= 


lc00: 


E 0 7 3 


53 






-■ 


1610: 


E074 


54 








1 6 2 0 : 


E075 


4F 








1630: 


E07 6 


50 






_ 


16 40: 


E 0 7 7 


3F 






- 


i 550: 


EB78 


3 A 








166 0: 


E 0 7 9 


20 








1 6 1 0 : 


E07A 


0 3 






- 


1 6 8 0 : 


E07B 


A5 


D5 




LDA 


1 698: 


E07D 


85 


A ti 




ST A 


l 7 0 0 : 


E07F 


20 


A0 


06 


JSR 


IMS: 


E0S2 


85 


D7 




ST A 


1 720: 


E0S4 


A 9 


2C 




LDAIM 


1 t'38: 


E096 


20 


8 A 


16 


JSR 


1 740: 


E069 


20 


A0 


06 


JSR 
ST A 


1/50: 


E03C 


65 


Di 




1 760: 










ALFNL'M JSR 


1 770: 


E 0 £' E 


20 


F2 


FA 


! 7b0: 


£091 


3D 






■at 


i 790 : 


1092 


0A 








1S00: 
1610: 


E0V3 
E i» c 4 


41 
4C 








1820: 


£095 


:J iLl 








1830: 


E096 


48 








I 840: 


f-07? 


41 








1858: 


£896 


£ U 








1^60: 


C09? 


4 i 









1 Y 

•s 

' T 
A 
' R 
■ T 
' ? 

I 

' Y 

■a 

'T 

■o 

P 

• ? 



$03 

FIELD 

MAXVAL 

recbyt 

YSTART 
$2C 

NPRCHA 
RECBYT 



ETX 
Set 
but 



1370: 
1080: 
1590: 
1 900: 
{ ? 1 0 i 
1 920: 
1 730: 
17 4 0: 
1 950: 
1 760: 
1 970: 
1930: 
1 990: 
20 00: 
2010: 
2020: 
2030: 
2040: 
2050: 
2060: 
2070: 
2080: 
2090: 
2100: 
2110: 
2120: 
2130: 
2140: 
2150: 
2160: 
2170: 
2180: 
2190: 
2200: 
2210: 
2220: 
2230: 
2240: 
2250: 



E09A 
E09B 
E09C 
E09D 
E0VE. 
E09F 
E0A0 
E0A1 
E 0 A 2 

e0a: 

E0A4 
E0A5 

e a a 6 

E0A7 
E0AS 
E0A9 
E0AA 
E0AB 
E0AC 
E0AS 
E0B0 




ma:: value for YSTART and YSTGP. 
but = or < than FIELD 
Get begirt address oi strings to sort 
*#######*#######*##**********#****#* 

Print "." 

bet er:d address oi strives to sort 
*######****#****##*##*#***#*#***## 



Print 

CR 

LF 



' ALPHA ffl) OR NUMERIC (9) 



Enter a letter tor alphabetic, 
and a tiqure for numerical sortino 



NV-BDIZC 

A-01000001 
9 = 001 1 1001 

f 



jr 
or 



a n v 
a n v 



ietter 

H qu r e 



V=l 
V«0 



20 
4F 



4D 
45 

5 

49 
4 3 
28 

29 
3F 
3 A 
20 
03 
20 
85 



E0B5 0D 

E0B6 0A 

E0B7 2A 

E0B8 08 

E0B9 03 



E0EA A0 63 
E0BC A2 E6 
E0BE 20 A5 07 
E0C1 A0 00 
E0C3 84 D9 
E0C5 A0 E8 









'0 








= 


;r 










s 










'U 










M 










' E 










R 










' I 










C 








- 


' I 








= 


'9 








■ 


') 








■ 












$03 


ETX 


AE 


12 


JSR 


RECCHA 


Set a i o ha / ri urn e r l c 1 1 ao 


DA 




STA 


ANFLAG 


********************** 


F2 


FA 


JSR 


PRINTv 


Print "CR.LF. *" 




$0D 


CR 








$0A 


LF 








■ * 


... This means computer 








$08 


BS 








$03 


ETX 



Set parameters for the sorting process, first oass 
******************************************************* 

SDRT'G LDYIM $63 ( P ARAL ) 
LDXIM $E6 ( CURADL ) 
JSR PARPNT CURAD <r PARA 
LDYIM $00 

STY SRFLAG Reset sorting flag 

LDYIM $EB Y = CEND : X is still $E6. CURADL 
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2260: 
2270: 
2280: 
2290: 
2300: 
2310: 
2320: 
2330: 
2340: 
2350: 
2360: 
2370: 
2380: 
2390: 
2400: 
2410: 
2420: 
2430: 
2440: 
2450: 
2460: 
2470: 
2480: 
2490: 
2500: 
2510: 
2520: 
2530: 
2540: 
2550: 
2560: 
2570: 
2580: 
2590: 
2600: 
2610: 
2620: 
2630: 
2640: 
2650: 
2660: 
2670: 
2680: 
2690: 
2700: 
2710: 
2720: 
2730: 
2740: 
2750: 
2760: 
277 0: 
2780: 
2790: 
2800: 
2810: 
2820: 
2330: 
2840: 
2850: 
2860: 
2870: 
2880: 
2890: 
2900: 
2910: 
2920: 
2930: 
2940: 
2950: 
2960: 
2970: 
2980: 
2990: 



E0C7 20 75 0C 
E0CA A2 E8 
E0CC 20 B2 07 



E0CF A4 D7 



E0D1 
E0D3 

E0D5 
E0D7 
E0D9 

E0DB 
E0DD 
E0DF 
E0E1 
E0E3 
E0E5 
E0E6 

E0E9 
E0E8 

E0ED 
E0EF 
E0F1 
E0F3 
E0F5 
E0F7 
E0F8 
E0FB 



24 DA 
70 06 

61 E6 
Dl E8 
50 24 

Bl E8 
10 0A 
29 7F 
C9 20 
B0 04 
A A 

BD E>5 06 

29 DF 
95 D4 

Bl E6 



JSR XPARAY CURAD 4 CEND 

LDXIM *E8 CENDL 

JSR X2Z + FD CEND f CEND + F I ELD 



Get the character pointed bv YSJ ART in CURAD, 

conoars it with the corr esoondtnc one in CEHDAD 

******************************************************* 



**** V FLA6 CLEAR * numeric strings 



**** V FLA8 SET * alphabet, strings 
Get the ASCII value of the char, at CEND 

Mask bit 7 of extra characteres il8ZK9F.i 
Filter extra charact. from italic characters 
Italic characteres are *A0-)*FE 

* A£e§ef iUSSaAaSflaiiocoe. . . 

Mas!; bit 5 of lower case characters 
ABCREG Save it for ccmDaration 



10 
29 



0A 
7F 



C9 20 

B0 04 

A A 

BD D5 

29 DF 



06 



E0FD C5 D4 



E0FF D0 07 



CMPARE 


LDY 


YSTARF 


COMPRE 


BIT 


ANFLAG 




BVS 


ALPHA 


NUMERI 




CURADL 




CENDL 




BVC 


EQUAL? 


ALPHA 


LDAIY 


CENDL 




BPL 


1 ower 




AND1M 


$7F 




CMP1M 


120 




BCS 


1 ower 




TAX 






LDAAX 


ASC ' 3 


1 ower 


AND I M 


J DF 




STA 


ABCREG 




LDAIY 


CURADL 




BPL 


lower!' 




AND I M 


$ 7F 




CMPIM 


*20 




BCS 


1 ower 2 




FAX 






LDAAX 


ASC S 


1 ower 2 


AND I M 


*DF 




CMP 


ASCREG 


EQUAL? 


BNE 


NOTEQU 



ASCREG Compare the actual ASCII values 



NOTEQU First check Z flao 



*** EQUAL/ ■) Compare the text character in the saae 

cair of strinas 
******************************************************* 



E101 


C8 




EQUAL ! 


I NY 






El 02 


C4 


D8 




r p y 


VSTOP 




E104 


D0 


CB 




BNE 


COMPRE 


Same value 


E106 


F0 


02 




BEQ 


GO-ON 


E108 


B0 


1C 


NOTEQU 


BCS 


GREATR 


C h e c k here 



~* get n e ;: t o a i 



*** LESS THAN/ •) The stnnos are in order. 

Advance to next cair. 



E10A 
E10C 
E10F 
El 1 1 
El 14 
El 16 
El 18 
El 1A 
El 1C 
El IE 
E120 
E122 
El 24 



A2 


E6 




GO-ON LDXIM 


$E6 


20 


B2 


07 


JSR 


XZZ+FD 


A2 


E8 




LDXIM 


$E8 


20 


B2 


07 


JSR 


XZZ+FD 


A5 


E8 




LDA 


CENDL 


C5 


E4 




CMP 


ENDADL 


D0 


B5 




BNE 


CMPARE 


A5 


E9 




LDA 


CENDH 


C5 


E5 




CMP 


ENDADH 


D0 


AF 




BNE 


CMPARE 


ft'5 
D0 


D9 




LDA 


SRFLAG 


96 




BNE 


SORT ' G 


F0 


29 




BEQ 


DONE 



CURAD 
CURAD 
CEND 



f CURAD + F I ELD 
- CEND + F I ELD ; 



: uo-date CURAD 
UD-date CEND 



;ino flag » There was anv change of pairs 
if flag set. pass once more 
if flag clear, the files are ordered 
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3000: 
5010: 
3020: 
3030: 
3040: 
3050: 
3060: 
30 70: 



3093: 
3100; 
J 1 j 0 : 
3120: 
3130: 
3140: 
3150: 
31 60: 

31 70: 
3180: 
3190: 
3206: 
3210: 
3220: 

32 30: 
3240: 
3230 : 
3263: 
■ r ?/0: 
3230: 
3290: 
3300: 
3310; 
3320: 
3330: 

33 40: 
3, ,50: 
3360: 
3370: 
3 '80: 
3390; 
3400: 
34ie: 

34 20: 
3430; 
3440: 
3450! 
34o0: 
3 4 70: 
34ti0: 
3490: 
3500: 
3510: 
3520: 
3530: 
3540: 
3550: 
3560: 
3570: 
35S0: 
3590: 
3600: 



A0 01 
84 D9 
88 

S4 F0 
34 Fl 
A4 D5 

03 

El E8 
91 Ffl 

p a 

11 F9 



E 1 2 6 
E128 
E12A 
E12B 
El 2D 
E12F 
E131 
£132 
E134 
£136 
El 37 
El 39 A4 D5 
E13B 
Hi 32 
E13E 
E 1 4 0 
El 41 
EJ.43 
£145 
£146 
El 46 
E14A 
E J 4B 



hi 

E8 

F9 



til 

91 

.; 0 
A 4 

88 

81 F0 
91 E6 
88 

10 F9 



E14D 30 BB 

EHF m If- 

E 1 SI 4C 39 F7 



6154 34 J5 



E156 
£15/ 
LI 59 
E15B 
E15D 
EI5F 
£161 
£163 



£164 
E166 
£169 
£169 
E16E 



EHF 
E172 
£174 
£177 
£179 



18 
85 
6 5 

n tr 



60 



B5 

B5 
99 
60 



It 

B9 
95 
60 



00 

D5 
00 
01 

00 

01 



00 
00 
01 
01 



00 1A 



01 
01 



1A 



*** GREATER THAN/ ■) Exchange this oair; Set S R F LAG 
*####*##*♦**#*##*#**###*♦#*##**#♦#♦#*♦*###*#*######*##* 

GREATR LDYIM $01 

STY SRFLAS Sortina fliq f 01 : ons pair is chanaed! 
DEY -)Y = 00 

STY MOVADL 

STY MO'v'ADH MOVAD f 0000 Buffer address for exchanoe 
LDY FIELD movements. If the files aren't too lonq. 
DEY the move address can be the stack. 

LOflDCH LDAIY CENDL 

STAIY MOVADL File at CEND i MOVAD 
DEY 

6FL LQADCH 
LDY FIELD 
DEY 

LGADC LDAIY CURADL 

CENDL File at CURAD 1 CEND 



LOAD 



STAIY 
DEY 
BPL 
LDY 
DEY 
LDAIY 
STAIY 
DEY 
3FL 



LODEND BMJ 



LOADC 
FIELD 

MOVADL 

CURADL File at MOVAD ■» CURAD 

LOAD 

GO-ON 



DONE LDYIM $1F 



J HP MES3A Print " DONE " and R IS 



ftft#S ***«#«*****###*« SUBROUTINES 
STY FIELD Add Y to point 



****************** 



CLC 
LDAZX 
ADC 
SIAZX 
LDAZ X 
ADC I M 
STAZX 
RTS 



$00 

FIELD 

$00 

$01 

$00 

$01 



Add FIELD to point 



LDAZX $00 

STAAY $0000 

LDAZX $01 

STAAY $0001 
RTS 



LDAAY $1A00 

STAZX $00 

LDAAY $1A01 

STAZX $01 



Move a oomt in oaae 00. pointed bv X 
reaister. to another one. pointed bv V 



Move one parameter in paae 1A. pointed bv Y 
To an address in paae 00 pointed bv X 



RTS 
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50 63 MLIST 
SCR # 50 

0 #**■»#»********#*******♦****************#**#***********»****#»*** 

1 * 

2 * HET VERANDEREN VAN TAPE-FORTH NAAR DISC-FORTH 

3 * 

4 #**#****#**##**♦*#**********•»********************♦***********♦** 

5 

6 DOOR : M.C. BREUKINK 

7 SCHOUTENDREEF 66 
B 2542 LN DEN HAAG 

9 TEL. : 070 - 666437 

10 

12 (RED.: zie ook eerdere Dublikatie van Gert Klein) 
13 

14 
15 

SCR #51 

0 NA EEN TIJD MET FIB-FORTH 1.1 BEWERKT TE HEBBEN KWAM TOCH HET 

1 VERLAN6EN OM IN PLAATS VAN EEN CASSETTERECORDER EEN DISCDRIVE 

2 AAN TE SLUITEN. 

3 NA HET KOPEN VAN EEN DISC-DRIVE EN HET BOUWEN VAN EEN INTERFACE. 

4 BEN IK 6 AAN UITZOEKEN HOE FORTH NU EIGENLIJK MET EEN DISC WERKT. 

I &>° l &E3Sl. ia HEEL ftNDERS flLS B,J 

B A. FORTH ZIET DE DISC SIMPELWEG ALS EEN UITBREIDING V. H. GEHEU6EN 

9 B. FORTH MAAKT 6EEN GEBRUIK VAN EEN DIRECTORY. ZODAT DE PLAATS 
10 VAN EEN SCREEN (1024 BYTES) OP DE DISC ALTIJD GEL UK IS EN 

II DAT DE GEHELE DISC GEBRUIKT KAN WORDEN. 

12 

13 FORTH MAAKT GEBRUIK VAN DISC-BUFFERS IN HET RAM-GEHEUGEN. 

14 IN FIG-FORTH VI. 1 IS ER RUIMTE IN DE BUFFERS VOOR 1 SCREEN. 

15 DE BUFFERS ZIJN ALS VOLGT OPGEBOUWD: 

SCR # 52 

0 BYTE 1 = HET BLOCKNUMMER VAN DE BUFFER. 

1 BYTE 2 = DEZE BYTE BEVAT HET UPDATE BIT WELKE AANGEEFT DAT DE 

2 DATA UIT DEZE BUFFER NAAR DISC GESCHREVEN MOET WORDEN 

3 ( ALS BIT 7 GESET IS ) 

4 BYTE 3 T/M 25B = DE EIGENLI JKE SCREEN INFORM AT IE 

5 ( ALTIJD EEN VEELVOUD VAN 128 ) 

6 BYTE 259 EN 260 = DEZE BYTES ZIJN ALTIJD 00 EN DIENEN ALS 

7 STOPBYTES VOOR DE COMPILER. 
8 

9 IN MIJN GEVAL (MET 256 BYTES/SECTOR) ZIJN ER 4 BUFFERS AANWEZIG. 

10 STANDAARD MAAKT DE FIG-FORTH VI. 1 GEBRUIK VAN 128 BYTES/SECTOR. 

11 OM FORTH AAN TE PASSEN AAN ANDERE SECTORLENGTEN MOETEN DE 

12 VOLGENDE CONSTANTEN AAN6EPAST WORDEN : 

14 FIRST = HET BEGINADRES VAN DE DISC-BUFFERS ( BIJ MIJ 5B60 ) 

15 LIMIT = HET EINDADRES VAN DE DISC-BUFFERS ( BIJ MIJ 5F70 ) 

SCR # 53 

0 B/BUF = HET AANTAL BYTES PER BUFFER ( BIJ MIJ 256 ) 

1 B/SCR = HET AANTAL BUFFERS PER SCREEN ( BIJ MIJ 4 ) 

2 VERVOLGENS MOETEN ER EEN AANTAL PRIMITIVES EN HIGH-LEVEL 

3 WOORDEN AANGEPAST WORDEN. TE BEGINNEN MET DE PRIMITIVES : 

4 HET WOORD -DISC BESTAAT UIT MACHINETAAL EN LESTEST OF SCHRIJFT 

5 EEN SECTOR NAAR DISC. 

6 342B 85 : BEGIN WOORD -DISC ( LENGTE IS 5 ) 

7 342C 2D 44 49 53 C3 : NAAM -DISC 

8 3431 CF 33 : LINKADRES NAAR — > 

9 3433 35 34 : BEGIN MACHINETAAL - DISCDISC 

10 3435 B5 00 LDA 0. X : HAAL SECTOR NUMMER 

11 3437 85 02 STA FSEC 

12 3439 B5 02 LDA 2. X : HAAL TRACK NUMMER 

13 343B 85 03 STA FTRK 

14 343D 86 B5 STX XSAVE : RED X -REGISTER 

15 343F A5 05 LDA RWF : HAAL R/W FLAG 



!E 5 □ a 



KENNER 



SCR 
0 
1 
2 
3 
4 
5 
6 
7 



9 

10 
U 
12 
13 
1 



# 54 
3441 
3443 
3443 
3449 
344C 
344E 
3456 
345E 



R/W=l LEZEN 

SCHRIJF EEN SECTOR NAAR DISC 

LEES EEN SECTOR VAN DE DISC 
HAAL X-REGISTER WEER OP 



DO 06 BNE 3449 
20 00 EO JSR SWRITE 
4C 4C 34 JMP 344C 
20 OA EO JSR SREAD 
A6 B5 LDX B5 
EA EA EA EA EA EA EA 
EA EA EA EA EA EA EA 
EA EA EA EA 

FC DF LDA STREG 
STA 04.X 
4C EC 21 JMP POPTWO 

HET VRIJE BEDEELTE VAN ADRES 344E - 3461 KAN GEBRUIKT WORDEN 

ALS MEN 2 EN/OF DUBBELZI JDIGE DRIVES GEBRUIKT. 

( BIJ 2 DRIVES IS HET DRIVE NUMMER TE VINDEN OP ADRES 4. X ) 





SCR # 55 

0 DE ROUTINE SREAD START DE DRIVE. BEWEEGT DE KOP NAAR DE JUISTE 

1 TRACK EN LEEST DE GEWENSTE SECTOR. 

2 DE SECTOR WORDT IN HET GEHEUGEN GEZET VANAF HET ADRES WAT ZICH 

3 OP ADRES 00 EN 01 BEVINDT. 

4 SWRITE DOET BUNA HETZELFDE MAAR SCHRIJFT EEN SECTOR NAAR DISC. 

5 HET STUK MACHINETAAL VAN -DISC IS ERG AFHANKELIJK VAN HET TOE- 

6 GEPASTE DISC-SYSTEEM. 

8 VERVOLGENS MOETEN EEN AANTAL HIGH-LEVEL WOORDEN AANGEPAST WORDEN 

9 HET WOORD DAT VOLGT NA -DISC IS -BCD. 

10 HET WOORD -BCD ZET EEN BINAIRE WAARDE OM NAAR BCD. 

11 ( ALS SREAD EN SWRITE GENOEGEN NEMEN MET EEN BINAIRE WAARDE KAN 

12 DIT WOORD VERVALLEN ) 

13 HET WOORD -BCD IS ALS VOLGT OPGEBOUWD : 
14 

15 346A 84 :: RECHTER NIBBLE = LENGTE WOORD 



SCR 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 



# 56 

346B 2D 42 43 C4 
346F 2B 34 
3471 D6 25 
3473 5D 26 
3475 67 20 
3477 OA 



3478 5B 23 
347A 67 20 
347C 10 
347D 44 31 

10 347F AD 23 

11 3481 OC 24 
12 

13 DIT IS ONGEVEER 
14 

15 



NAAM -BCD 

LINKADRES NAAR -DISC 
DOCOL C) 

ZERO ( CONST ANTE 0 ) 
CLIT ( BYTE VALUE ) 
10 

USLAS ( U/ ) 
CLIT 
16 

STAR ( * ) 
OR 

SEMIS ( : ) 
GELIJK AAN : -BCD 0 10 U/ 16 * OR 



SCR # 57 

0 HET WOORD R/W ZORGT VOOR HET LEZEN EN SCHRIJVEN VAN EN NAAR DISC 

1 ADRES N F R/W ADRES=SOURCE OF DESTINATION ADRES N-BLOCK NUMMER 

2 F=R/W FLAG 0=SCHRIJVEN 1=LEZEN 



3483 83 

4 3484 52 2F D7 

5 3487 6A 34 

6 3489 D6 25 

7 348B 73 24 

8 348D 2A 20 

9 348F 00 05 

10 3491 B5 25 

11 3493 22 25 

12 3495 5D 26 

13 3497 9D 25 

14 3499 5D 26 

15 349B 08 25 



RECHTER NIBBLE 
NAAM R/W 
LINKADRES NAAR -BCD 



LENGTE WOORD 



DOCOL 

ZEQU 

LIT 

ADRES 

CSTOR 



) 



) 



= R/W FLAG 
C! ) 



) CONSTANTE 0 
STORE ( ! ) 
ZERO 
OVER 
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SCR 


# 58 






o 


349D 


3C 


28 


1 


349F 


08 


25 


2 


34 A 1 


20 


20 


3 


3403 


ff 


04 


4 


34A5 


3C 

WW 


28 


5 


3407 


0D 


23 


6 


3409 


67 


20 


7 


340B 


06 




8 


340C 


1 i 




9 


340E 






10 


34B0 






11 


34B2 


AD 


02 


12 


34B4 


JD 


j— 1— 1 


13 


34B6 


01 


27 


14 34B8 


JO 




15 34BA 


5D 


26 


SCR 


# 59 






0 


34BC 


67 


20 


1 


34BE 


10 




2 


34BF 


5B 


23 


3 


34C1 


71 


34 


4 


34C3 


22 


25 


5 


34C5 


01 


27 


6 


34C7 


71 


34 


7 


34C9 


33 


34 


8 


34CB 


67 


20 


9 


34CD 


08 




10 


34CE 


11 


29 


11 


34D0 
34D2 


OC 


24 


12 


OC 


24 



6RE0T ( > ) 

OVER 

LIT 

SECTL-1 ( SECTL = SECT0REN 2 DRIVES ) 
GRE0T 
□R 
CLIT 
6 

QERR 
0 

LIT 
SECTR 
USL0S 
DNEP 
SWOP 
ZERO 



( 6 ?ERRDR = DISC R0N6E? ) 



( SECTR=SECT0REN PER DRIVE ) 
( U7 ) 
( 1+ ) 



13 



CLIT 

16 SECT0REN PER TROCK 
USLOS 

DBCD ( -BCD KON EVT VERVALLEN ) 

SWOP 

ONEP 

DBCD ( KON EVT VERVOLLEN ) 

DDISC ( -DISC ) 

CLIT 

8 

QERR ( 8 ?ERR0R= DISC ERROR ) 

SEMIS ( : ) 

SEMIS 



14 SECTR EN SECTL ZIJN GEBOSEERD OP EEN DISC-SYSTEEM MET 16 SECTORS 

15 EN 40 TROCKS PER DISC. 



SCR # 60 

0 NU MOETEN WE IN DE VOLBENDE FORTH WOORDEN WOORDEN VERANDEREN t 
1 DR1 640 OFFSET ! : ( 640 SECTOREN PER DRIVE ) 
WERK OLLEEN MET DE TWEEDE DRIVE. ( ONBELONGRIJK BIJ 1 DRIVE ) 



1 
2 
3 
4 
5 
6 
7 
8 
9 



: +BUF 260 + DUP LIMIT = IF DROP FIRST THEN DUP PREV © 
+BUF LEVERT HET ODRES VON DE VOLGENDE BUFFER 



IN DE EDITOR BEVINDT ZICH NOG EEN FLUSH ! 
: FLUSH 4 0 DO 32767 BUFFER DROP LOOP : 

MET FLUSH WORDEN DE BUFFERS WOORVON DE UPDOTE BIT GESET IS NOAR 

10 DISC GESCHREVEN. 

11 HET SETTEN VON DE UPDOTE BIT VON EEN BUFFER 6EBEURT OUTOMOTISCH 

12 OLS MEN MET DE EDITOR IN EEN BUFFER IETS VERANDERD. 

13 HET SETTEN KAN OOK GEBEUREN DOOR UPDATE IN TE TYPEN. 

14 ( DIT GEBEURT DAN ALLEEN MAAR IN DE HUIDIGHE BUFFER ! ! ! ) 
15 



SCR # 61 

0 VARIABLE PREV = HET ADRES VAN DE MEEST RECENT AANGESPROKEN 

1 BUFFER ( LEZEN OF SCHRIJVEN ) 

2 VARIABLE USE = HET ADRES VAN DE MINST RECENT AANGESPROKEN 

3 BUFFER ( HIER KOMT DE NIEUW GELEZEN DISC-SECTOR TERECHT ) 

4 ( USE EN PREV MOETEN 5B60 5C64 5D68 OF 5E6C ZIJN BIJ OPSTARTEN ) 

6 BUFFER = N ADRES 

7 N IS HET BLOCK NUMMER VAN DE BUFFER. 

8 ALS HET UPDATE BIT VAN DE BUFFER GESET IS WORDT DEZE BUFFER NAAR 

9 DISC GESCHREVEN. ( BUFFER SCHRIJFT ALLEEN NAAR DISC ) 
10 HET ADRES IS HET ADRES VAN BUFFER N . 

11 

12 BLOCK - N ADRES 

13 N IS WEER HET BLOCK NUMMER VAN DE BUFFER. 

14 DIT WOORD GEEFT HET ADRES VAN HET BLOCK NUMMER N. 

15 ALS DIT BLOCK NOG NIET IN HET GEHEUGEN STAAT WORDT DIT VAN DISC 
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SCR 6 ' 1 

0 GELEZEN. ALS DE UPDATE FLOG VAN DE BUFFER WAAR DE SECTOR NAAR 

1 TOE MOET GESET IS. WORDT DEZE BUFFER EERST NOG NAAR DISC 

2 GESCHREVEN VOORDAT DE NIEUWE SECTOR WORDT INGELEZEN. 

3 HET WOORD BLOCK MAAKT 0. A. GEBRUIK VAN DE VARIABELEN PREV. USE 

4 EN DE WOORDEN +BUF EN BUFFER. 

5 ALS MEN OVER EEN ZGN DECOMPILER BESCHIKT KAN MEN BEKIJKEN HOE 

6 DE WOORDEN. VARIABELEN EN CONSTANTEN ERUIT ZIEN DIE MET DISC TE 

7 MAKEN HEBBEN. 
6 

9 DE 'NIEUWE' DISC-FORTH WERKT AL MAANDENLANG ZONDER PROBLEMEN. 

10 MAAR PAS OP : NA EENMAAL MET DISC-FORTH GEWERKT TE HEBBEN. WIL 

11 JE DE TAPE-FORTH NOOIT MEER GEBRUIKEN! 

12 

14 VOOR MEER INFORMATIE OVER HET AANPASSEN VAN TAPE NAAR DISC KUNT 

15 U MI J ALT I JD BELLEN OF SCHRIJVEN. 

SCR # 63 

0 REFERENT I ES : 

1 FIG-FORTH 6502 ASSEMBLY SOURCE LISTING VI. 1 

2 FORTH INTEREST GROUP. P.O. BOX 1105. SAN CARLOS 

3 CA 94070. 
4 

5 STARTING FORTH. LEO BRODIE. FORTH INC. 

6 

7 DIVERSE FORTH DIMENSIONS. FORTH INTEREST GROUP. 

8 

9 

10 
11 

I ^ 

14 

is 

OK 

0 LIST 
SCR # 0 

0 

1 ( Het aebeurt wel eens aat een FORTH-screen aeiaaen wordt ) 

2 ( en het oeeft een f out boodschao. Je kunt echter niet ont~ ) 

3 ( dekken waar de font zit. Er kunnen cont roie-karakters in ) 

4 ( het screen zitten. die is met ziet. Met de volaende de- ) 

5 ( finitie warden ze wel zichtbaar ). 
6 

7 

a 

9 

10 ( Wout van Dinther. Molenn mselaan 27. 5262 TN Vuaht ) 
11 

12 
13 
14 
15 
DK 

1 LIST 
SCR # 1 

0 ( Zoek in screen nl naar cont role karakters ) 

1 : ZOEK ( nl — ) 

2 BLOCK 

3 1024 0 DO DUP C& DUP 32 < 

4 IF CR . " ■■ " 64 + EMIT 

5 . " e : " DUP U. El.SE DROP 

6 END IF 1+ LOOP DROP : 

7 s REINIG ( nl — > 

8 BLOCK 

9 1024 0 DO DUP C& 32 < 
10 IF DUP 32 SWAP C! 

II END IF 1+ LOOP DROP : 
12 

13 ( ZOEK laat het karakter zien ) 

14 ( REINIG maakt er een soatie van ) 
15 

OK 
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TE KOOP flflNGEBODEN 

8" FDOS controllerkaart set FD 1771 

2 x 8K Raa/Roa kaart aet 2 x 6K Raa en in 

Eoroa's FDOS 1.2 voor 8' 

VerkooD ten behoeve van een Belaisch lid. 

Voor inforaatie of bezichtiaina: 

Tel. : 01807 - 19861 

Verzendkosten zijn niet in de orijs inbe- 
areoen. 



fl. 90,00 

n. loo.oo 



SD+DD DOS D0SAV2.0A 



JUNIOR-coaouter aet PH en TK. Sinale density + double den- 
sity disk ©Derating systea voor 5* aet FDC 1770. Van onze 
Belgiscne vriend Ir. Koen van NieuHenhove. Ontnikkeld oo 
eioen JUNIOR-coaouter. fll enkele laren draaiend oo de re- 
dact ie. 

Inforaatieoakket aet coaolete becoaaentarieerGe source- 
listing. Met natch-routine voor iterken aet Microsoft KB-9 
Basic voor JUNIOR. Patch-routine voor iterken aet asseabier 
van Carl Noser voor JUNIOR (verkriigbaar bij Inoenieursou- 
ro Schroeder te Eindhoven). Patch-routine voor'nerken aet 
Pascal (indien aen daarover beschikt). Overdrukken van ar- 
tikelen uit BYTE en diverse inforaaties voor het svsteea 
aet clubfaciliteiten. Het scheaa's en coaaand suaaary in 
inleidend artikel. 

Hans Buuraan Dubiiceerde inaiddeis al een natch die het 
DOS 250* sneller aaakt. 

De controllerkaart voor DOSAV2.0A dient aan ce hand van 
scheaa's ze!f te norden ontnikkeld door aiddel van road- 
running of Nirt-Mrao aft tventueel totcialt VERO-exoen- 
aenteerkaart Eurocard No. 10 - 0S81 B, of dubbelzhdic* 
dooroeaetalliseerde kaart aaken). 

De floDDy-disk controller FDC 1770 is in elk oeval ver- 
krijgbaar bij H.C.A. Tronix, Route du Condroz 5:3. B-4200 
Luik, Belaie. 

Inforaatieoakket fl. 97,50 

Inleidend artikel uit inforaatieoakket fl. 10.00 

Bestellingen te olaatsen door overschriivirn van het ver- 
schuldigde bedrag oo oostrekenina 841433*t.n.~v. W.L. van 
Pelt te Kriaoen a.d. IJssel, aet veraeldinc van hetoeen 
oewenst mrdt. 

imiiiiiiiiiiiiiimiiiniHiii i i iu i m i 



* De redaktie zoekt voor oublikatie in DE 6502 KENNER 

* artikelen van leden die in het bezit ziin van een BBC- 

* coaouter een APPLE, alle COMMODORE aachines. de ATARI 

* en de OSI, en alle coaoatibles. 

* Heeft u zelf aeaaakte orooraaaa's ontHikkeld, klein of 

* oroot, inoewikkeld of niet, in asseabier, Basic. Forth 

* of Coaal, in Pascal, Fortran Cobol. in C, Loco, Elan, 

* en aat dies aeer zij, stuur net oo naar de redartie en 

* draao uh steentje bij tot het verbeteren van de saaen- 

* stelling van Uh eigen clubblad. 

* De redaktie helot u aet het oublikatierijo aaken en de 

* ooaaak. Heeft u geen orinter, oeen nood/aij tyoen het 

* orograaaa of um artikel wel uit. 

* Schrooa niet, andere leden zitten oo uh bijdraoe al te 

* Machten en zij kunnen ook van u Ieren. 

* Jongeren nodioen we ook uit hun bedenksel in te zenden 

* naar de redaktie. En verceet niet .... een jury beoor- 

* deelt welke van de geoubliceerde orooraaaa'i/artikelen 

* in aanaerking kan koaen voor de dooronze club ter ae- 

* schikkina cestelde oriizen! 

I 'i ' iiii iiiiiiiiiiiii i iiHiiiiiiiHi i iiiiiiiin i n 



DUDE E D I J I E S "DE §502 KENNER" 

Reeds verse henen edities van DE 6502 KENNER kunnen noo be- 
steld Horden door fl. 9.00 oer editie over te schriiven oo 
oostrekenina 3757649 ten naae van de oenninoaeester van ce 
KIN Gebruikersclub Nederland te Kriaoen a.d." IJssel. onder 
veraelding van de generate editie(s). 
De edities Norden afgeleverd door de sekretaris van de club 

De voloende eaities ziin noo verkri lobaar: 



NR. 16" REI 1981 


NR. 17 


AUG 


1981 


NR. 18 OKT 1981 


NR. 19 


DEC 


1981 


NR. 20 NIET HEER LEVERBAAR 


NR. 21 


NIET 


WEER LEVERBAAR 


NR. 22 AUG 1982 


NR. 23 


OKT 


1982 


NR. 24 DEC 1982 


NR. 25 


FEB 


1983 


NR. 26 HE I 1983 


NR. 27 


AUG 


1983 


NR. 28 OKT 1983 


NR. 29 


DEC 


1983 


NR. 30 FEB 1984 


NR. 31 


APR 


1984 


NR. 32 JUN 1984 


NR. 33 


AUG 


1984 


NR. 34 OKT 1984 


NR. 35 


DEC 


1984 


Bestellen van ce oeheie laargano 1964. 


naarin zes ecities 



zijn verschenen. kost slecfrts fl. 45.= 

HUmHHHmillMHIHH »«iiiiim«immimii.im«» it a mmm»m 
URIITTTTf f Vllf Illlf IIIII II IfffflffWf IIV fT fflFII 

* U kent vast wel ieaand uit Uh oageving of faaihe cie * 

* in het bezit is van een coaouter aet een 65xx orocessor * 

* en ueliicht overcehaaid kan mrcen oa lid te worcen van * 

* onze umexe club. Stuur de recant le ziin/haar acres oo- * 

* dat hij betrokkene kunnen voorzien van" inforaatie. Ook • 

* oo Uh Herk kunt U eens Hat aoeite doen. We hebben stern * 

* behoefte aan aeer leden. we Hilien oraao noo aeer voor * 
t onze leden doan, Daarvoor ziin achtar'vatl attr leaen * 

* nodia. Het adres van de redaktie is: Redaktie DE 6502 * 
« KENNER. o/a Wlllta L. van Ptlt. Jacob Jorduntttrut IS « 

* 2923 CK Kriaoen a.d. IJssel. Tel. : 01807 - 19881 * 

IffYIII TTTTTTTf Till ITffffTIf IlfflfflllfflflVflllf Iffffffllfflf nfffff 

ASM65 65CXXX-CR0SS-ASSEMBLER for JUNIOR Kith Proton DOS. 
Coaolete source-list ino aevelooed by Rob Banen. fl. 97.50 
English version. 

CLUB ASSEMBLER TEXTEDITOR C.A.T. for CONMODORE 64 coaouter 
With IF-THEN-ELSE. REPEAT-UNTIL. CASE-WHEN-OTHEWISE. etc. 
Develooed by Ruud H. Uohoff (C) 1984. 
Nanual (Dutch version) nith cassette fl. 47.50 

RAW QUICK TAPE for COMMODORE 64 coaouter 

Develooed by Ruud H. Uohoff (C) 1984. 

Cassette Hith directions for use (Dutcn version) fl. 12.50 

SUPERMDN for COMMODORE 64 coaouter 

Cassette fl. 12.50 

FORTH-79 STANDARD oaaers fl. 20 00 

fio-FORTH 6502 Asseably Source Listina fl. 65.00 

fig-FORTH Installation' Manual Hith Glossary. fl. 45.00 
ftocel. Editor 

FORTH-79 STANDARD conversion fl. 20.00 

CFAST5 Controlling digital cassette recorder. 
Written by Koen van Nieunenhove for JUNIQR-coao. 
This orooraa controls several functions of tne 
recorder over the free VIA 6522. Data transfer 
is about 6000 baud. 

Asseably source listing, Dutch version fl. 12.50 

Prices only for aeabers in Hoi lane. Maabers in other coun- 
tries have to Day fl. 7.50 extra transfers, unless they oav 
Hith eurocheaue. 
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« DE 6502 KENNERS » — fl CLUB FDR ALL 65xk USERS 



Information about the club. 

Host oeoole are not Nell-inforaed about the first aicro- 
coaouter club in The Netherlands. It was called The KIN 
Users Club The Netherlands. Today, the name of the club is 
not auite covering all the other •sabers with a coaouter 
frot the 65xx-family. So, the club aooears also Kith the 
naae DE 6502 KENNERS, and offers accoMdation to all users 
of the 65xx-comouters, like APPLE, COMMODORE. BBC, ACORN. 
ATARI DSI, ITT 2020, AIN-65, CHE-1, CV-777, BASIS 108 L 
PEARCOM, SYN-1, PET, VIC-20, Proton-computers, ORIC-1. ACC 
1000, SYSTEM 65, PC-100, PALLAS, NINTA, FORMOSA, STARLIGHT 
ESTATE III, SBC 65/68, NCS 6502. KENPAC System 4. Elektuur 
JUNIOR, Elektuur SAMS0N65, KIM-l, etc., etc. 

International 



The club has ■eabers in The Netherlands, Belgium, 6eraany, 
France, Spain, Portugal, Aaerica, India, Zambia, etc. etc. 

Puroose 



The club has teen established 29th of January 1977 with 
the our Dose to proaote the exchange of knowledge among the 
users of systeas mentioned before." 

Meetings In The Netherlands the club oroanises 

meetings each third Saturday of the odd 

•onths" exceot in July. 
The club delivers lectures of all kinds, 
about Drograaaing machine language, Basic, 
Forth, etc. etc. 

Cassette Libr. The cassette library is free available for 

all members by ordering cassettes. 

Prog rams on cassette has been develooed by 
•embers of the club, mostly published in 
our club magazin DE 6502 KENNER. All rights 
of the authors are reserved. 

Paperware The oaoerNare service exists of oroviding 

source-listinas and articles oublished in 

our club aaoazin DE 6502 KENNER. 
There are also listings in English. 

Magazine The magazin DE 6502 KENNER aooears 5 times 

a year. The articles are written by members 

of the club from all coutries, aided by the 
redaction. Articles of all kind, hardware 
as well as source-listings in assembly with 
comments, Basic, Forth, Comal, Focal, Looo, 
Elan, Pascal, Cobol, Fortran, C, etc. etc. 
Used assemblers: Micro-ADE, ASS/TED, Proton 
assembler, FATE, Big Mac, and so on. 
Each edition counts 48 oages at least. 
Some source-list inos are too long to be ou- 
blished like a 12K FATE. They will be 
available in the oaoerware-service. 
An independent jury awards prices for some 
contributions. 

Membership Membership is ooen for all natural persons. 

Both for novice and advanced. 

Subscribe on Eurocheoue HFL. 45.= and send 
to: Editorial Office DE 6502 KENNER 
c/o Hi Hem L. van Pelt 
Jacob Jordaensstraat 15 
2923 CK Krimoen a.d. Ussel 
The Netherlands. 
If not oaying with Eurocheoue: HFL. 52.50 ! 



Paoerwa re-service 

Micro-ADE 6K Assembler/Disassembler/Editor. 
For use with any 6502 microcomputer. 
Micro-ADE was develooed bv Peter Jeminos of Micro-Ware Ltd 
Canada, (C) 1977. (C) 1982 bv KIN Users Club. 

FATE 12K Format Lister/Asseabler/Taoe-utilities/Editor. 
For use with Elektor's JUNIOR-comouter with PN + TM. 
Also for use with KIM-l computer (separate I/O catches), 
we now try to make a FATE working on APPLE-comouter. 
FATE was developed by our member Rob Banen, based on object 
information and published with peraission of Proton Elect r. 
Naarden, The Netherlands. (C) 1984. 

He recommend free memory spaces of at least 16K. better 32K 

FATEC 12K Format Lister/Asseabler/Taoe-utilities/Editor. 
Saae FATE, but now for use with 65C02-orocessor. 



ASM65C CrossAsseabler for use with 65C02-orocessor. 
Developed by Rob Banen for Elektor's JUNIOR-comouter 
Proton Disk Operating System (Senior). 



with 



CAT BK two pass Club Assembler Texteditor for C-64. 
Developed by our member Ruud H. Uohoff. 
Assembler with IF-THEN-ELSE, REPEAT-UNTIL, WHILE-DO, CASE- 
UHEN-OTHEHISE, MOVE COPY, DELETE, RENUMBER CHANGE, etc. 
With build-in struciuremacro's and controls! ructures. 
English manual not available yet. 

FORTH-79 STANDARD 

fia-FORTH 6502 Assembly Source Listing 

fio-FORTH Instalation Manual with Glossary, Model, Editor 

FORTH 79 STADARD Conversion 

fio-FORTH for JUNIOR with Prtton Disk Operating Svstem. 
Developed by our member Bert van Oobroek. 



FYS-fORTH for APPLE II 

2nd FYS-FORTH VSN 0.3 Release of July 4th. 



19B4. 



Disassembler for the Rockwel 65C02. 

Developed by Rob Banen for JUNIOR with Proton DOS. 

CFAST5 Controlling digital recorder 6000 baud. 
Dutch version source-listing developed by our meater 
van Nieuwenhove for JUNIOR-comouter with PM + TM, 



Koen 



JUNIOR on 5" Floooy. 

Dutch manual and English source-listing developed bv Koen 
van Nieuwenhove, with scheme. Byte-articles and other infor 
mations. Ask for prices. 

Floppy disk on AIN-65 

Article published in DE 6502 KENNER nr. 28 Oct. 1983. 
Dutch version with scheme. 
Author: D.A. Gerritsen. 

Read basicode with your Microsoft SYM-1 Basic on Elektor's 
JUNIOR-comouter with PM + TM, and Elektor's interface. 

Read basicode with your Microsoft KB9-P Basic on Elektor's 
JUNIOR-comouter with PM + TM. and Eelektor's interface. 
linm i niiiiiiiim i in ii miiiiiiniiiiiiiiiiiiiiniiiii 

• Send your orooram list inos to the editors office * 
t c/o Uillem L. van Pelt * 

• Jacob Jordaensstraat 15 • 

• 2923 CK Krimoen a.d. Ussel * 
t The Netherlands « 
HHimHiii i iiiimiiiimi i iiimiiiiiiiiiiiiiiiiiiii i n 



